From 86b6c0964e39455b94ff08fdb6bf5f95ffaebbc3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 19 Mar 2015 13:20:18 -0400
Subject: [PATCH] Allow escaped newline in a string

---
 parser.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/parser.scm b/parser.scm
index 52d430b1..582429a5 100644
--- a/parser.scm
+++ b/parser.scm
@@ -320,6 +320,8 @@
       ((or (equal? #\" c)
            (equal? #\\ c))
        (cons c buf))
+      ((equal? #\n c)
+       (cons #\newline buf))
       (else
         (parse-error "invalid escape character in string"
          (in-port:get-lnum ptbl)