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

used in substitutions
2007-12-20 06:36:00 -05:00 · 2007-12-20 06:36:00 -05:00 · 097ca03e47
parent d162c1cc25
commit 097ca03e47
2 changed files with 8 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1273
+1275
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -1414,7 +1414,13 @@
           (bless `(lambda (x)
                     (syntax-case x ,lits
                       ,@(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*)))))))))
  
  (define quasiquote-macro