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

temporary hack around certificate problems

Browse Source 
svn: r9287
This commit is contained in:
Matthew Flatt 2008-04-13 22:35:08 +00:00
parent b372856777
commit e98e5d449c
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/r5rs/main.ss
View File

@ -4,6 +4,8 @@
(for-syntax scheme/base syntax/kerncase) (for-syntax scheme/base syntax/kerncase)
(only-in mzscheme transcript-on transcript-off)) (only-in mzscheme transcript-on transcript-off))
(provide (rename-out [r5rs:body #%r5rs:body])) ; Temporary hack!
(provide (for-syntax syntax-rules ...) (provide (for-syntax syntax-rules ...)
(rename-out (rename-out
[mcons cons] [mcons cons]
@ -272,13 +274,13 @@
((var1 init1) ...) ((var1 init1) ...)
body ...)))) body ...))))
(define-syntax r5rs:lambda (define-syntax (r5rs:lambda stx)
;; Convert rest-arg list to mlist: ;; Convert rest-arg list to mlist, and use r5rs:body:
(syntax-rules () (syntax-case stx ()
[(_ (id ...) . body) [(_ (id ...) . body)
(#%plain-lambda (id ...) (r5rs:body . body))] #'(#%plain-lambda (id ...) (r5rs:body . body))]
[(_ (id ... . rest) . body) [(_ (id ... . rest) . body)
(#%plain-lambda (id ... . rest) #'(#%plain-lambda (id ... . rest)
(let ([rest (list->mlist rest)]) (let ([rest (list->mlist rest)])
(r5rs:body . body)))])) (r5rs:body . body)))]))