suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix empty-matching lexers

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-06 07:15:19 -06:00
parent 763a010fd3
commit a6723283b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/parser-tools/yacc-to-scheme.rkt
View File

@ -8,14 +8,14 @@
(define match-double-string (define match-double-string
(lexer (lexer
((:* (:~ #\" #\\)) (append (string->list lexeme) ((:+ (:~ #\" #\\)) (append (string->list lexeme)
(match-double-string input-port))) (match-double-string input-port)))
((:: #\\ any-char) (cons (string-ref lexeme 1) (match-double-string input-port))) ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-double-string input-port)))
(#\" null))) (#\" null)))
(define match-single-string (define match-single-string
(lexer (lexer
((:* (:~ #\' #\\)) (append (string->list lexeme) ((:+ (:~ #\' #\\)) (append (string->list lexeme)
(match-single-string input-port))) (match-single-string input-port)))
((:: #\\ any-char) (cons (string-ref lexeme 1) (match-single-string input-port))) ((:: #\\ any-char) (cons (string-ref lexeme 1) (match-single-string input-port)))
(#\' null))) (#\' null)))