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

fix internal-defn handling of r6rs define form

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-18 19:52:07 -06:00
parent fd285baeac
commit 5afc2970a3
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/rnrs/base-6.rkt
View File

@ -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)]))
;; ----------------------------------------