* Tokenizer now recognizes "\r" in strings.

This commit is contained in:
Abdulaziz Ghuloum 2007-01-13 14:39:58 -05:00
parent 8b9dd5fd85
commit 53b51e4088
2 changed files with 1 additions and 0 deletions

Binary file not shown.

View File

@ -115,6 +115,7 @@
[($char= #\" c) (tokenize-string (cons #\" ls) p)]
[($char= #\\ c) (tokenize-string (cons #\\ ls) p)]
[($char= #\n c) (tokenize-string (cons #\newline ls) p)]
[($char= #\r c) (tokenize-string (cons #\return ls) p)]
[($char= #\t c) (tokenize-string (cons #\tab ls) p)]
[else (error 'tokenize "invalid string escape \\~a" c)]))]
[else