From 0c96321f209343f54fcb075ed53b25872a25a09a Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 6 Apr 2009 16:36:07 +0300 Subject: [PATCH] fixed definitions of last clauses in cond and case macros. --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index f9d0c24..ba47111 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1751 +1752 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index 007955d..f8b0296 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -1031,7 +1031,7 @@ (lambda (e) (define (build-last cls) (syntax-match cls (else) - ((else e e* ...) `(begin ,e . ,e*)) + ((else e e* ...) `(let () #f ,e . ,e*)) (_ (build-one cls '(if #f #f))))) (define (build-one cls k) (syntax-match cls () @@ -1520,7 +1520,7 @@ (cond ((null? cls*) (syntax-match cls (else =>) - ((else e e* ...) `(begin ,e . ,e*)) + ((else e e* ...) `(let () #f ,e . ,e*)) ((e => p) `(let ((t ,e)) (if t (,p t)))) ((e) `(or ,e (if #f #f))) ((e e* ...) `(if ,e (begin . ,e*)))