From f61ba6ee4a336e84425245772013228d1170d7e1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 17 Aug 2017 16:36:01 +0000
Subject: [PATCH] Cleanup

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

diff --git a/scheme/read.sld b/scheme/read.sld
index 901e05a3..d7a8fc40 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -765,7 +765,7 @@
         result)))
 
 (define (parse2 fp)
-  (let ((token (read-token fp))) ;; TODO: this will be a C call
+  (let ((token (read-token fp)))
     ;(write `(token ,token))
     (cond
       ((Cyc-opaque? token)
@@ -791,7 +791,7 @@
          ((Cyc-opaque-unsafe-eq? token #\,)
           (list 'unquote (parse2 fp)))
          (else
-          token))) ;; TODO: error if this is returned to original caller of parse2
+          token))) ;; error if this is returned to original caller of parse2
       ((vector? token)
        (cond
         ((= (vector-length token) 2) ;; Special case: number