From b3bf701f6fddf21b40de0ed5c576b03b57181d2c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 6 Aug 2018 21:28:17 -0400
Subject: [PATCH] Remove debug code

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

diff --git a/scheme/read.sld b/scheme/read.sld
index a791a98d..91fe984c 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -8,7 +8,7 @@
 ;;;;
 (define-library (scheme read)
   (import (scheme base)
-          (scheme write)
+          ;(scheme write)
           (scheme char))
   (export
     read
@@ -134,7 +134,7 @@
 
 (define (parse fp)
   (let ((token (read-token fp)))
-    (display "//")(write `(token ,token)) (newline)
+    ;;(display "//")(write `(token ,token)) (newline)
     (cond
       ((Cyc-opaque? token)
        (cond