suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r1121
This commit is contained in:
Eli Barzilay 2005-10-21 23:02:47 +00:00
parent aea9387a58
commit 0de18bc3ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/kw.ss
View File

@ -325,7 +325,7 @@
(syntax/loc stx (letrec ([name (case-lambda . clauses)]) name))))])) (syntax/loc stx (letrec ([name (case-lambda . clauses)]) name))))]))
(syntax-case stx () (syntax-case stx ()
[(_ formals expr0 expr ...) [(_ formals expr0 expr ...)
(generate-body #'formals #'(begin expr0 expr ...))])) (generate-body #'formals #'(let () expr0 expr ...))]))
(provide define/kw) (provide define/kw)
(define-syntax (define/kw stx) (define-syntax (define/kw stx)