From 5d470145541cbad6446065aacdc89b69819b8b6c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Jul 2010 07:15:19 -0600 Subject: [PATCH] fix empty-matching lexers original commit: a6723283b8fc9647467b8daea20f17d134bc1b29 --- collects/parser-tools/yacc-to-scheme.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/yacc-to-scheme.rkt b/collects/parser-tools/yacc-to-scheme.rkt index e854fca..4fb9620 100644 --- a/collects/parser-tools/yacc-to-scheme.rkt +++ b/collects/parser-tools/yacc-to-scheme.rkt @@ -8,14 +8,14 @@ (define match-double-string (lexer - ((:* (:~ #\" #\\)) (append (string->list lexeme) + ((:+ (:~ #\" #\\)) (append (string->list lexeme) (match-double-string input-port))) ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-double-string input-port))) (#\" null))) (define match-single-string (lexer - ((:* (:~ #\' #\\)) (append (string->list lexeme) + ((:+ (:~ #\' #\\)) (append (string->list lexeme) (match-single-string input-port))) ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-single-string input-port))) (#\' null)))