From 64d39650fbc13e9b84c3dec8ee63b734e2a82e6b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 8 Aug 2016 17:40:57 -0400
Subject: [PATCH] Handle more escaped chars

---
 scheme/read.sld | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index b77039b5..c6281cb3 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -482,10 +482,15 @@
          (in-port:get-lnum ptbl)
          (in-port:get-cnum ptbl)))
       ((or (equal? #\" c)
+           (equal? #\' c)
+           (equal? #\? c)
            (equal? #\\ c))
        (cons c buf))
-      ((equal? #\n c)
-       (cons #\newline buf))
+      ((equal? #\a c) (cons #\alarm buf))
+      ((equal? #\b c) (cons #\backspace buf))
+      ((equal? #\n c) (cons #\newline buf))
+      ((equal? #\r c) (cons #\return buf))
+      ((equal? #\t c) (cons #\tab buf))
       (else
         (parse-error (string-append 
                        "invalid escape character ["