conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

3
src/ikarus.syntax.ss
View File

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

6
src/makefile.ss
View File

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