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

Fixes bug 177638: keyword argument in syntax-rules should not be 

used in substitutions
This commit is contained in:
Abdulaziz Ghuloum 2007-12-20 06:36:00 -05:00
parent d162c1cc25
commit 097ca03e47
2 changed files with 8 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 @@
1273 1275

8
scheme/psyntax.expander.ss
View File

@ -1414,7 +1414,13 @@
(bless `(lambda (x) (bless `(lambda (x)
(syntax-case x ,lits (syntax-case x ,lits
,@(map (lambda (pat tmp) ,@(map (lambda (pat tmp)
`(,pat (syntax ,tmp))) (syntax-match pat ()
[(_ . rest)
`((g . ,rest) (syntax ,tmp))]
[_
(syntax-violation #f
"invalid syntax-rules pattern"
e pat)]))
pat* tmp*))))))))) pat* tmp*)))))))))
(define quasiquote-macro (define quasiquote-macro