* (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 ikarus-macros-map
'([define i r] '([define i r ne]
[define-syntax i r] [define-syntax i r ne]
[let-syntax i r] [let-syntax i r ne]
[letrec-syntax i r] [letrec-syntax i r ne]
[module i cm] [module i cm]
[begin i r] [begin i r ne]
[import i] [import i]
[set! i r] [set! i r ne]
[foreign-call i] [foreign-call i]
[quote i r] [quote i r ne]
[syntax-case i syncase] [syntax-case i syncase]
[syntax i syncase] [syntax i syncase]
[lambda i r] [lambda i r ne]
[case-lambda i r] [case-lambda i r]
[type-descriptor i ] [type-descriptor i ]
[letrec i r] [letrec i r ne]
[letrec* i r] [letrec* i r]
[if i r] [if i r ne]
[when i r] [when i r]
[unless i r] [unless i r]
[parameterize i parameters] [parameterize i parameters]
[case i r] [case i r ne]
[let-values i r] [let-values i r]
[define-record i r] [define-record i r]
[include i r] [include i r]
[syntax-rules i r] [syntax-rules i r ne]
[quasiquote i r] [quasiquote i r ne]
[quasisyntax i syncase] [quasisyntax i syncase]
[with-syntax i syncase] [with-syntax i syncase]
[let i r] [let i r ne]
[identifier-syntax i r] [identifier-syntax i r]
[let* i r] [let* i r ne]
[cond i r] [cond i r ne]
[do i r] [do i r ne]
[and i r] [and i r ne]
[or i r] [or i r ne]
[time i] [time i]
[delay i] [delay i ne]
[... i r] [... i r ne]
[=> i r] [=> i r ne]
[else i r] [else i r ne]
[_ i r] [_ i r ne]
[unquote i r] [unquote i r ne]
[unquote-splicing i r] [unquote-splicing i r ne]
[unsyntax i r] [unsyntax i r]
[unsyntax-splicing i r] [unsyntax-splicing i r]
)) ))