Allow escaped newline in a string

This commit is contained in:
Justin Ethier 2015-03-19 13:20:18 -04:00
parent d058f33933
commit 86b6c0964e

View file

@ -320,6 +320,8 @@
((or (equal? #\" c) ((or (equal? #\" c)
(equal? #\\ c)) (equal? #\\ c))
(cons c buf)) (cons c buf))
((equal? #\n c)
(cons #\newline buf))
(else (else
(parse-error "invalid escape character in string" (parse-error "invalid escape character in string"
(in-port:get-lnum ptbl) (in-port:get-lnum ptbl)