From 0de18bc3ab44a510c8400563a2edd94ec0cae58d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 21 Oct 2005 23:02:47 +0000
Subject: [PATCH] use (let () ...) instead of begin, so internal definitions
 work

svn: r1121
---
 collects/mzlib/kw.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.ss
index 2b7a462adc..7697859cd6 100644
--- a/collects/mzlib/kw.ss
+++ b/collects/mzlib/kw.ss
@@ -325,7 +325,7 @@
           (syntax/loc stx (letrec ([name (case-lambda . clauses)]) name))))]))
   (syntax-case stx ()
     [(_ formals expr0 expr ...)
-     (generate-body #'formals #'(begin expr0 expr ...))]))
+     (generate-body #'formals #'(let () expr0 expr ...))]))
 
 (provide define/kw)
 (define-syntax (define/kw stx)