* (ikarus null-environment-5) is populated with the r5rs syntactic

forms.
This commit is contained in:
Abdulaziz Ghuloum 2007-09-02 03:02:53 -04:00
parent f351cc9a5b
commit 21cdfd412b
2 changed files with 26 additions and 26 deletions

Binary file not shown.

View File

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