From af46220d6487c9f442ae319ab111f5f69bfb1c28 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 6 Apr 2009 16:30:23 +0300 Subject: [PATCH] fixed definition of with-syntax to allow internal definitions. --- 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 cfdfb83..f9d0c24 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1750 +1751 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index 251dd5b..007955d 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 #f ,b . ,b*)) + ((null? pat*) `(begin ,b . ,b*)) (else `(syntax-case ,(car t*) () (,(car pat*) ,(f (cdr pat*) (cdr t*)))