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

Added unquote, unquote-splicing, unsyntax, unsyntax-splicing

This commit is contained in:
Abdulaziz Ghuloum 2007-08-30 20:12:38 -04:00
parent a324572bc0
commit 3820bffee3
3 changed files with 11 additions and 1 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.

4
src/ikarus.syntax.ss
View File

@ -1573,7 +1573,9 @@
[(with-syntax) with-syntax-macro]
[(identifier-syntax) identifier-syntax-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 'core-macro-transformer "invalid macro ~s" x)])))
(define (local-macro-transformer x)

8
src/makefile.ss
View File

@ -114,6 +114,10 @@
[=> (macro . =>)]
[else (macro . else)]
[_ (macro . _)]
[unquote (macro . unquote)]
[unquote-splicing (macro . unquote-splicing)]
[unsyntax (macro . unsyntax)]
[unsyntax-splicing (macro . unsyntax-splicing)]
))
(define library-legend
@ -242,6 +246,10 @@
[=> i r]
[else i r]
[_ i r]
[unquote i r]
[unquote-splicing i r]
[unsyntax i r]
[unsyntax-splicing i r]
))
(define ikarus-procedures-map