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]
|
||||
[(with-syntax) with-syntax-macro]
|
||||
[(identifier-syntax) identifier-syntax-macro]
|
||||
[(...) incorrect-usage-macro]
|
||||
[(=>) incorrect-usage-macro]
|
||||
[(... => _ else) incorrect-usage-macro]
|
||||
[else (error 'macro-transformer "invalid macro ~s" x)])]
|
||||
[else (error 'core-macro-transformer "invalid macro ~s" x)])))
|
||||
(define (local-macro-transformer x)
|
||||
|
|
|
@ -110,6 +110,9 @@
|
|||
[and (macro . and)]
|
||||
[or (macro . or)]
|
||||
[... (macro . ...)]
|
||||
[=> (macro . =>)]
|
||||
[else (macro . else)]
|
||||
[_ (macro . _)]
|
||||
))
|
||||
|
||||
(define library-legend
|
||||
|
@ -232,6 +235,9 @@
|
|||
[and i r]
|
||||
[or i r]
|
||||
[... i r]
|
||||
[=> i r]
|
||||
[else i r]
|
||||
[_ i r]
|
||||
))
|
||||
|
||||
(define ikarus-procedures-map
|
||||
|
|
Loading…
Reference in New Issue