From d42b8a68df8366b8ff73a5cc692b8cf7d998b6a9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Nov 2007 01:53:13 +0000 Subject: [PATCH] ensure thst case' expansion is an expression svn: r7856 --- collects/scheme/private/more-scheme.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/more-scheme.ss b/collects/scheme/private/more-scheme.ss index 38c7f60974..d04c43d09a 100644 --- a/collects/scheme/private/more-scheme.ss +++ b/collects/scheme/private/more-scheme.ss @@ -21,9 +21,9 @@ (lambda (x) (syntax-case x (else) ((_ v) - (syntax (begin v (void)))) + (syntax (#%expression (begin v (void))))) ((_ v (else e1 e2 ...)) - (syntax/loc x (begin v e1 e2 ...))) + (syntax/loc x (#%expression (begin v e1 e2 ...)))) ((_ v ((k ...) e1 e2 ...)) (syntax/loc x (if (case-test v (k ...)) (begin e1 e2 ...) (void)))) ((_ v ((k ...) e1 e2 ...) c1 c2 ...)