Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle more escaped chars

Browse source
This commit is contained in:
Justin Ethier 2016-08-08 17:40:57 -04:00
parent b534657855
commit 64d39650fb
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/read.sld
View file

@ -482,10 +482,15 @@
(in-port:get-lnum ptbl) (in-port:get-lnum ptbl)
(in-port:get-cnum ptbl))) (in-port:get-cnum ptbl)))
((or (equal? #\" c) ((or (equal? #\" c)
(equal? #\' c)
(equal? #\? c)
(equal? #\\ c)) (equal? #\\ c))
(cons c buf)) (cons c buf))
((equal? #\n c) ((equal? #\a c) (cons #\alarm buf))
(cons #\newline buf)) ((equal? #\b c) (cons #\backspace buf))
((equal? #\n c) (cons #\newline buf))
((equal? #\r c) (cons #\return buf))
((equal? #\t c) (cons #\tab buf))
(else (else
(parse-error (string-append (parse-error (string-append
"invalid escape character [" "invalid escape character ["