From bcff57fa5294befa0eca7ccd7d12e9cb982e0417 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 7 Apr 2009 02:33:09 +0300 Subject: [PATCH] fixed a bug in internal definitions of with-syntax (again). --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 11ad811..5b9849f 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1758 +1759 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index e4f32ee..90a37fa 100644 --- 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*)))