From ff6b2f2eebf256999286dba6dc70c6e68189f691 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
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))))))