shithub: sl

Download patch

ref: 38156baef2e1f2a3b02d9b8a99d8685be1964e42
parent: a186c3bafb15cb6e95867848889e57537fd083ae
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Mon Mar 17 21:46:46 EDT 2025

str-map: fix a typo

--- a/boot/sl.boot
+++ b/boot/sl.boot
@@ -407,8 +407,8 @@
 ("n170q062:" #(reverse!-) reverse!)
             reverse!- #fn("n2I1B3B041=101?04N4?1@\x1d/40:" #() reverse!-) reverse-
             #fn("n21J400:701<0P1=62:" #(reverse-) reverse-) rune? #fn("n12005121Q:" #(#fn(typeof)
-e) rune?)
-            self-evaluating? #fn("n120051S;3Z040H;36040RS;JK0421051;3A040R;3:04022051Q:" #(#fn(gensym?)
+e) rune?)
+            self-evaluating? #fn("n120051S;3Z040H;36040RS;JK0421051;3A040R;3:04022051Q:" #(#fn(gensym?)
 
             set-syntax! #fn("n220710163:" #(#fn(put!)
                                             *syntax-environment*) set-syntax!)
--- a/src/system.lsp
+++ b/src/system.lsp
@@ -889,7 +889,7 @@
       (while (< i n)
          (io-putc b (f (str-rune s i)))
          (set! i (1+ i))))
-    (ios->str b)))
+    (io->str b)))
 
 (def (str-rep s k)
   (cond ((< k 4)