fixed a bug in internal definitions of with-syntax (again).

2009-04-07 02:33:09 +03:00 · 2009-04-07 02:33:09 +03:00 · bcff57fa52
parent 56ec093e05
commit bcff57fa52
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1758
+1759
--- 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 ,b . ,b*))
+                       ((null? pat*) `(let () ,b . ,b*))
                       (else
                        `(syntax-case ,(car t*) ()
                           (,(car pat*) ,(f (cdr pat*) (cdr t*)))