From b997d10f43b1375e5dc03002df36b0458772b354 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 17 Aug 2017 13:54:53 +0000
Subject: [PATCH] Cut-over to new reader

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

diff --git a/scheme/read.sld b/scheme/read.sld
index 3491ac51..901e05a3 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -703,7 +703,7 @@
     (let ((fp (if (null? args)
                   (current-input-port)
                   (car args))))
-      (if (reading-from-file? fp)
+      (if #t ;(reading-from-file? fp)
           (call-parse2 fp)
           (parse fp '() '() #f #f 0 (reg-port fp))))))