From 8605fecaf32d0739e9922c6c6d1c11599a220ac4 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 26 Nov 2010 19:05:40 -0700 Subject: [PATCH] syntax/parse: fixed bug in #:do (with expression) --- collects/syntax/parse/private/runtime.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/syntax/parse/private/runtime.rkt b/collects/syntax/parse/private/runtime.rkt index 1648fbf6d5..fb1284e495 100644 --- a/collects/syntax/parse/private/runtime.rkt +++ b/collects/syntax/parse/private/runtime.rkt @@ -308,15 +308,15 @@ [(no-shadow e) (let ([ee (local-expand #'e (syntax-local-context) (kernel-form-identifier-list))]) - (syntax-case ee (begin define-values defines-syntaxes) + (syntax-case ee (begin define-values define-syntaxes) [(begin d ...) #'(begin (no-shadow d) ...)] [(define-values . _) - (check-shadow ee) - ee] + (begin (check-shadow ee) + ee)] [(define-syntaxes . _) - (check-shadow ee) - ee] + (begin (check-shadow ee) + ee)] [_ ee]))]))