Added =>, else, and _ aux macros
This commit is contained in:
parent
905b6c96c6
commit
86a28c3822
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -1567,8 +1567,7 @@
|
||||||
[(quasiquote) quasiquote-macro]
|
[(quasiquote) quasiquote-macro]
|
||||||
[(with-syntax) with-syntax-macro]
|
[(with-syntax) with-syntax-macro]
|
||||||
[(identifier-syntax) identifier-syntax-macro]
|
[(identifier-syntax) identifier-syntax-macro]
|
||||||
[(...) incorrect-usage-macro]
|
[(... => _ else) incorrect-usage-macro]
|
||||||
[(=>) 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)
|
||||||
|
|
|
@ -110,6 +110,9 @@
|
||||||
[and (macro . and)]
|
[and (macro . and)]
|
||||||
[or (macro . or)]
|
[or (macro . or)]
|
||||||
[... (macro . ...)]
|
[... (macro . ...)]
|
||||||
|
[=> (macro . =>)]
|
||||||
|
[else (macro . else)]
|
||||||
|
[_ (macro . _)]
|
||||||
))
|
))
|
||||||
|
|
||||||
(define library-legend
|
(define library-legend
|
||||||
|
@ -232,6 +235,9 @@
|
||||||
[and i r]
|
[and i r]
|
||||||
[or i r]
|
[or i r]
|
||||||
[... i r]
|
[... i r]
|
||||||
|
[=> i r]
|
||||||
|
[else i r]
|
||||||
|
[_ i r]
|
||||||
))
|
))
|
||||||
|
|
||||||
(define ikarus-procedures-map
|
(define ikarus-procedures-map
|
||||||
|
|
Loading…
Reference in New Issue