* (ikarus null-environment-5) is populated with the r5rs syntactic
forms.
This commit is contained in:
parent
f351cc9a5b
commit
21cdfd412b
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -211,50 +211,50 @@
|
|||
|
||||
|
||||
(define ikarus-macros-map
|
||||
'([define i r]
|
||||
[define-syntax i r]
|
||||
[let-syntax i r]
|
||||
[letrec-syntax i r]
|
||||
'([define i r ne]
|
||||
[define-syntax i r ne]
|
||||
[let-syntax i r ne]
|
||||
[letrec-syntax i r ne]
|
||||
[module i cm]
|
||||
[begin i r]
|
||||
[begin i r ne]
|
||||
[import i]
|
||||
[set! i r]
|
||||
[set! i r ne]
|
||||
[foreign-call i]
|
||||
[quote i r]
|
||||
[quote i r ne]
|
||||
[syntax-case i syncase]
|
||||
[syntax i syncase]
|
||||
[lambda i r]
|
||||
[lambda i r ne]
|
||||
[case-lambda i r]
|
||||
[type-descriptor i ]
|
||||
[letrec i r]
|
||||
[letrec i r ne]
|
||||
[letrec* i r]
|
||||
[if i r]
|
||||
[if i r ne]
|
||||
[when i r]
|
||||
[unless i r]
|
||||
[parameterize i parameters]
|
||||
[case i r]
|
||||
[case i r ne]
|
||||
[let-values i r]
|
||||
[define-record i r]
|
||||
[include i r]
|
||||
[syntax-rules i r]
|
||||
[quasiquote i r]
|
||||
[syntax-rules i r ne]
|
||||
[quasiquote i r ne]
|
||||
[quasisyntax i syncase]
|
||||
[with-syntax i syncase]
|
||||
[let i r]
|
||||
[let i r ne]
|
||||
[identifier-syntax i r]
|
||||
[let* i r]
|
||||
[cond i r]
|
||||
[do i r]
|
||||
[and i r]
|
||||
[or i r]
|
||||
[let* i r ne]
|
||||
[cond i r ne]
|
||||
[do i r ne]
|
||||
[and i r ne]
|
||||
[or i r ne]
|
||||
[time i]
|
||||
[delay i]
|
||||
[... i r]
|
||||
[=> i r]
|
||||
[else i r]
|
||||
[_ i r]
|
||||
[unquote i r]
|
||||
[unquote-splicing i r]
|
||||
[delay i ne]
|
||||
[... i r ne]
|
||||
[=> i r ne]
|
||||
[else i r ne]
|
||||
[_ i r ne]
|
||||
[unquote i r ne]
|
||||
[unquote-splicing i r ne]
|
||||
[unsyntax i r]
|
||||
[unsyntax-splicing i r]
|
||||
))
|
||||
|
|
Loading…
Reference in New Issue