From 04a0fb7a4f57b51e03a56e786ab969453add0e57 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 25 Jan 2002 06:07:49 +0000 Subject: [PATCH] *** empty log message *** original commit: 73799cfd47b5dfbd9eb2980aea8d30902646e0bf --- collects/parser-tools/examples/read.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/parser-tools/examples/read.ss b/collects/parser-tools/examples/read.ss index c82a575..00d58bd 100644 --- a/collects/parser-tools/examples/read.ss +++ b/collects/parser-tools/examples/read.ss @@ -11,7 +11,7 @@ (lib "readerr.ss" "syntax")) (define-tokens data (DATUM)) - (define-empty-tokens delim (OP CP HASHOP QUOTE QUASI-QUOTE UNQUOTE UNQUOTE-SPLICING DOT EOF)) + (define-empty-tokens delim (OP CP HASHOP QUOTE QUASIQUOTE UNQUOTE UNQUOTE-SPLICING DOT EOF)) (define scheme-lexer (lexer-src-pos @@ -36,7 +36,7 @@ [(num10) (token-DATUM (string->number (get-lexeme) 10))] [(num16) (token-DATUM (string->number (get-lexeme) 16))] ["'" 'QUOTE] - ["`" 'QUASI-QUOTE] + ["`" 'QUASIQUOTE] ["," 'UNQUOTE] [",@" 'UNQUOTE-SPLICING] ["." 'DOT] @@ -224,7 +224,7 @@ [(OP sexp-list CP) (build-so (reverse $2) 1 3)] [(HASHOP sexp-list CP) (build-so (list->vector (reverse $2)) 1 3)] [(QUOTE sexp) (build-so (list 'quote $2) 1 2)] - [(QUASI-QUOTE sexp) (build-so (list 'quasi-quote $2) 1 2)] + [(QUASIQUOTE sexp) (build-so (list 'quasiquote $2) 1 2)] [(UNQUOTE sexp) (build-so (list 'unquote $2) 1 2)] [(UNQUOTE-SPLICING sexp) (build-so (list 'unquote-splicing $2) 1 2)] [(OP sexp-list DOT sexp CP) (build-so (append (reverse $2) $4) 1 5)])