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

quasiquote should check to quote literal identifiers, not just symbols

Browse source
This commit is contained in:
Alex Shinn 2013-01-12 21:38:52 +09:00
parent 2b68fca125
commit 4089370373
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -196,7 +196,7 @@
(else (else
(list (rename 'cons) (qq (car x) d) (qq (cdr x) d))))) (list (rename 'cons) (qq (car x) d) (qq (cdr x) d)))))
((vector? x) (list (rename 'list->vector) (qq (vector->list x) d))) ((vector? x) (list (rename 'list->vector) (qq (vector->list x) d)))
((if (symbol? x) #t (null? x)) (list (rename 'quote) x)) ((if (identifier? x) #t (null? x)) (list (rename 'quote) x))
(else x))) (else x)))
(qq (cadr expr) 0)))) (qq (cadr expr) 0))))