From 6094e5fb1293d98201511f607373498e0007906b Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 29 Sep 2013 13:42:24 +0900
Subject: [PATCH] Adding string and symbol quote delimiters to list of read
 delimiters in (scheme read).

---
 lib/srfi/38.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index ca06eb9f..eaa6dce1 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -145,7 +145,7 @@
               (skip-comment in depth)))))
 
 (define delimiters
-  '(#\; #\( #\) #\{ #\} #\space #\tab #\newline #\return))
+  '(#\; #\" #\| #\( #\) #\{ #\} #\space #\tab #\newline #\return))
 
 (define named-chars
   `(("newline" . #\newline)