conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed bug in quasiquote when the symbols quasiquote, unquote, 

unquote-splicing are introduced.
This commit is contained in:
Abdulaziz Ghuloum 2009-10-21 08:55:42 +03:00
parent d03fbfe4ef
commit 84e0f4ab6d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1863 1864

2
scheme/psyntax.expander.ss
View File

@ -1649,7 +1649,7 @@
(define quasiquote-macro (define quasiquote-macro
(let () (let ()
(define (datum x) (define (datum x)
(list (scheme-stx 'quote) (mkstx x '() '() '()))) (list (scheme-stx 'quote) (mkstx x top-mark* '() '())))
(define-syntax app (define-syntax app
(syntax-rules (quote) (syntax-rules (quote)
((_ 'x arg* ...) ((_ 'x arg* ...)