From 5afc2970a3c7952ada86dd1bc7203069af70ddca Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 18 Sep 2010 19:52:07 -0600 Subject: [PATCH] fix internal-defn handling of r6rs define form --- collects/rnrs/base-6.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/rnrs/base-6.rkt b/collects/rnrs/base-6.rkt index d293606ba8..88b0ff14a6 100644 --- a/collects/rnrs/base-6.rkt +++ b/collects/rnrs/base-6.rkt @@ -546,7 +546,7 @@ [(_ (name . args) . body) (check-label #'name stx - (syntax/loc stx (r5rs:define (name . args) (#%stratified-body . body))))] + (syntax/loc stx (r5rs:define (name . args) (let () (#%stratified-body . body)))))] [(_ . rest) #'(define . rest)])) ;; ----------------------------------------