Fixing unquote-splicing in srfi-38.

2025-07-06 20:56:38 +02:00 · 2012-11-03 23:37:41 +09:00 · 2012-11-03 23:37:41 +09:00 · 195cbeca6d
commit 195cbeca6d
parent 90856b8de2
1 changed files with 6 additions and 6 deletions
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@ -344,10 +344,10 @@
            ((#\`) (read-char in) (list 'quasiquote (read-one)))
            ((#\,)
             (read-char in)
-             (list (if (eqv? #\@ (peek-char in))
+             (let ((sym (if (eqv? #\@ (peek-char in))
                            (begin (read-char in) 'unquote-splicing)
-                       'unquote)
-                   (read-one)))
+                            'unquote)))
+               (list sym (read-one))))
            (else
             (read in))))
        ;; body