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

fix r6rs `lambda' with a rest arg

Browse Source 
Closes PR 11292
This commit is contained in:
Matthew Flatt 2010-10-07 16:56:29 -06:00
parent 281f935503
commit c84b7b400e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/rnrs/base-6.rkt
View File

@ -458,7 +458,7 @@
;; Need bindings like R5RS, but int-def body like Racket ;; Need bindings like R5RS, but int-def body like Racket
(define-syntax-rule (r6rs:letrec bindings . body) (define-syntax-rule (r6rs:letrec bindings . body)
(r5rs:letrec bindings (#%stratified-body . body))) (r5rs:letrec bindings (let () (#%stratified-body . body))))
(define-syntax-rule (r6rs:letrec* bindings . body) (define-syntax-rule (r6rs:letrec* bindings . body)
(letrec bindings (#%stratified-body . body))) (letrec bindings (#%stratified-body . body)))
@ -523,7 +523,7 @@
(andmap identifier? (syntax->list #'(id ...))) (andmap identifier? (syntax->list #'(id ...)))
(syntax/loc stx (lambda (id ...) (#%stratified-body . body)))] (syntax/loc stx (lambda (id ...) (#%stratified-body . body)))]
[(_ args . body) [(_ args . body)
(syntax/loc stx (r5rs:lambda args (#%stratified-body . body)))])) (syntax/loc stx (r5rs:lambda args (let () (#%stratified-body . body))))]))
(define-for-syntax (check-label id orig-stx def) (define-for-syntax (check-label id orig-stx def)
;; This test shouldn't be needed, and it interferes ;; This test shouldn't be needed, and it interferes