use (let () ...) instead of begin, so internal definitions work

svn: r1121 original commit: 0de18bc3ab44a510c8400563a2edd94ec0cae58d
2005-10-21 23:02:47 +00:00 · 2005-10-21 23:02:47 +00:00 · f413504664
commit f413504664
parent 0349b6ae99
1 changed files with 1 additions and 1 deletions
--- 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)