From 57926605a5cf294236fcf1ad6374543271c805ea Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 7 Jun 2017 17:57:49 +0000
Subject: [PATCH] For empty string literals, return the empty symbol

---
 scheme/read.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index 38b7f38e..4a2d5953 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -640,7 +640,7 @@
     (cond
       ((eq? #\| c) 
        (let ((str (if (null? tok) 
-                      "||"
+                      ""
                       (list->string 
                         (reverse tok)))))
         (string->symbol str)))