* Added quasisyntax, unsyntax, unsyntax-splicing reader macros.

2007-08-30 20:17:23 -04:00 · 2007-08-30 20:17:23 -04:00 · 1864ca830b
parent 3820bffee3
commit 1864ca830b
2 changed files with 7 additions and 0 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.reader.ss
+++ b/src/ikarus.reader.ss
@ -264,6 +264,13 @@
        [($char= #\\ c) (tokenize-char p)]
        [($char= #\( c) 'vparen]
        [($char= #\' c) '(macro . syntax)]
+        [($char= #\` c) '(macro . quasisyntax)]
+        [($char= #\, c)
+         (let ([c (peek-char p)])
+           (cond
+             [(eqv? c #\@) (read-char p)
+              '(macro . unsyntax-splicing)]
+             [else '(macro . unsyntax)]))]
        [($char= #\; c) 'hash-semi]
        [($char= #\% c) '(macro . |#primitive|)]
        [($char= #\| c) (multiline-comment p) (tokenize p)]