Added unquote, unquote-splicing, unsyntax, unsyntax-splicing
This commit is contained in:
parent
a324572bc0
commit
3820bffee3
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -1573,7 +1573,9 @@
|
||||||
[(with-syntax) with-syntax-macro]
|
[(with-syntax) with-syntax-macro]
|
||||||
[(identifier-syntax) identifier-syntax-macro]
|
[(identifier-syntax) identifier-syntax-macro]
|
||||||
[(time) time-macro]
|
[(time) time-macro]
|
||||||
[(... => _ else) incorrect-usage-macro]
|
[(... => _ else unquote unquote-splicing
|
||||||
|
unsyntax unsyntax-splicing)
|
||||||
|
incorrect-usage-macro]
|
||||||
[else (error 'macro-transformer "invalid macro ~s" x)])]
|
[else (error 'macro-transformer "invalid macro ~s" x)])]
|
||||||
[else (error 'core-macro-transformer "invalid macro ~s" x)])))
|
[else (error 'core-macro-transformer "invalid macro ~s" x)])))
|
||||||
(define (local-macro-transformer x)
|
(define (local-macro-transformer x)
|
||||||
|
|
|
@ -114,6 +114,10 @@
|
||||||
[=> (macro . =>)]
|
[=> (macro . =>)]
|
||||||
[else (macro . else)]
|
[else (macro . else)]
|
||||||
[_ (macro . _)]
|
[_ (macro . _)]
|
||||||
|
[unquote (macro . unquote)]
|
||||||
|
[unquote-splicing (macro . unquote-splicing)]
|
||||||
|
[unsyntax (macro . unsyntax)]
|
||||||
|
[unsyntax-splicing (macro . unsyntax-splicing)]
|
||||||
))
|
))
|
||||||
|
|
||||||
(define library-legend
|
(define library-legend
|
||||||
|
@ -242,6 +246,10 @@
|
||||||
[=> i r]
|
[=> i r]
|
||||||
[else i r]
|
[else i r]
|
||||||
[_ i r]
|
[_ i r]
|
||||||
|
[unquote i r]
|
||||||
|
[unquote-splicing i r]
|
||||||
|
[unsyntax i r]
|
||||||
|
[unsyntax-splicing i r]
|
||||||
))
|
))
|
||||||
|
|
||||||
(define ikarus-procedures-map
|
(define ikarus-procedures-map
|
||||||
|
|
Loading…
Reference in New Issue