From edf56a4c158ea7de30838e4bee561755b4f8cab0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 6 Aug 2018 20:43:15 -0400
Subject: [PATCH] Added debugging

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

diff --git a/scheme/read.sld b/scheme/read.sld
index ec5395d3..a791a98d 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)))
-    ;(write `(token ,token))
+    (display "//")(write `(token ,token)) (newline)
     (cond
       ((Cyc-opaque? token)
        (cond