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-cnum ptbl)))
((or (equal? #\" c)
(equal? #\' c)
(equal? #\? c)
(equal? #\\ c))
(cons c buf))
((equal? #\n c)
(cons #\newline buf))
((equal? #\a c) (cons #\alarm 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
(parse-error (string-append
"invalid escape character ["