Added =>, else, and _ aux macros

This commit is contained in:
Abdulaziz Ghuloum 2007-08-28 12:39:54 -04:00
parent 905b6c96c6
commit 86a28c3822
3 changed files with 7 additions and 2 deletions

Binary file not shown.

View File

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

View File

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