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

provide a restricted form of define that does not create curried definitions

Browse Source 
svn: r3039
This commit is contained in:
Eli Barzilay 2006-05-24 19:07:56 +00:00
parent 1fca26c61d
commit e95512246f
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/r5rs/lang.ss
View File

@ -70,20 +70,27 @@
((var1 init1) ...)
body ...))))
;; redefine to avoid curried define forms
(define-syntax (r5rs:define stx)
(syntax-case stx ()
[(_ id expr) (identifier? #'id)
#'(define id expr)]
[(_ (id . args) . body) (identifier? #'id)
#'(define (id . args) . body)]))
;; syntax
(provide quasiquote unquote unquote-splicing
if let and or cond case define delay do
(rename r5rs:letrec letrec)
(provide quasiquote unquote unquote-splicing
if let and or cond case delay do
(rename r5rs:letrec letrec) (rename r5rs:define define)
let* begin lambda quote set!
define-syntax let-syntax letrec-syntax
;; We have to include the following MzScheme-isms to do anything,
;; but they're not legal R5RS names, anyway.
#%app #%datum #%top
#%app #%datum #%top
(rename synrule-in-stx-module-begin #%module-begin)
(rename require #%require)
(rename provide #%provide))
(define-syntax synrule-in-stx-module-begin
(lambda (stx)