fixed definition of with-syntax to allow internal definitions.

2009-04-06 16:30:23 +03:00 · 2009-04-06 16:30:23 +03:00 · af46220d64
parent 5e1066170e
commit af46220d64
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1750
+1751
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -1102,7 +1102,7 @@
               `(let ,(map list t* expr*)
                  ,(let f ((pat* pat*) (t* t*))
                     (cond
-                       ((null? pat*) `(begin #f ,b . ,b*))
+                       ((null? pat*) `(begin ,b . ,b*))
                       (else
                        `(syntax-case ,(car t*) ()
                           (,(car pat*) ,(f (cdr pat*) (cdr t*)))