mbutterick
/
br-parser-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
original commit: e803855a5dfcc51e7ed7c31618498a300213df64
tokens
Scott Owens 23 years ago
parent db27e8da16
commit c9ddef8214
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
collects/parser-tools/yacc-to-scheme.ss
Unescape Escape View File

@ -37,7 +37,7 @@
((: ":") (string->symbol lexeme)) ((: ":") (string->symbol lexeme))
(%prec (string->symbol lexeme)) (%prec (string->symbol lexeme))
(#\| 'PIPE) (#\| 'PIPE)
((: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}")) (return-without-pos (get-token-grammar input-port))) ((+ (: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}"))) (return-without-pos (get-token-grammar input-port)))
(#\; 'SEMI) (#\; 'SEMI)
(#\' (token-STRING (string->symbol (list->string (match-single-string input-port))))) (#\' (token-STRING (string->symbol (list->string (match-single-string input-port)))))
(#\" (token-STRING (string->symbol (list->string (match-double-string input-port))))) (#\" (token-STRING (string->symbol (list->string (match-double-string input-port)))))

Write Preview
Loading…
Cancel
Save