Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing unquote-splicing in srfi-38.

Browse source
This commit is contained in:
Alex Shinn 2012-11-03 23:37:41 +09:00
parent 90856b8de2
commit 195cbeca6d
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/srfi/38.scm
View file

@ -161,8 +161,8 @@
(if (and (not (eof-object? c)) (if (and (not (eof-object? c))
(or (char-numeric? c) (or (char-numeric? c)
(memv (char-downcase c) '(#\a #\b #\c #\d #\e #\f)))) (memv (char-downcase c) '(#\a #\b #\c #\d #\e #\f))))
(read-label (cons (read-char in) res)) (read-label (cons (read-char in) res))
(list->string (reverse res))))) (list->string (reverse res)))))
(define (read-number base) (define (read-number base)
(let* ((str (read-label '())) (let* ((str (read-label '()))
(n (string->number str base)) (n (string->number str base))
@ -344,10 +344,10 @@
((#\`) (read-char in) (list 'quasiquote (read-one))) ((#\`) (read-char in) (list 'quasiquote (read-one)))
((#\,) ((#\,)
(read-char in) (read-char in)
(list (if (eqv? #\@ (peek-char in)) (let ((sym (if (eqv? #\@ (peek-char in))
(begin (read-char in) 'unquote-splicing) (begin (read-char in) 'unquote-splicing)
'unquote) 'unquote)))
(read-one))) (list sym (read-one))))
(else (else
(read in)))) (read in))))
;; body ;; body