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

Include invalid escape char in error message

Browse source
This commit is contained in:
Justin Ethier 2015-07-02 21:25:34 -04:00
parent 0a63384080
commit ff6b2f2eeb
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
parser.scm
View file

@ -408,7 +408,10 @@
((equal? #\n c) ((equal? #\n c)
(cons #\newline buf)) (cons #\newline buf))
(else (else
(parse-error "invalid escape character in string" (parse-error (string-append
"invalid escape character ["
(list->string (list c))
"] in string")
(in-port:get-lnum ptbl) (in-port:get-lnum ptbl)
(in-port:get-cnum ptbl)))))) (in-port:get-cnum ptbl))))))