From ff6b2f2eebf256999286dba6dc70c6e68189f691 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 2 Jul 2015 21:25:34 -0400 Subject: [PATCH] Include invalid escape char in error message --- parser.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/parser.scm b/parser.scm index 7aae1f17..1fdafc97 100644 --- a/parser.scm +++ b/parser.scm @@ -408,7 +408,10 @@ ((equal? #\n c) (cons #\newline buf)) (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-cnum ptbl))))))