From d434cf0f73ae930d90dc1b7bf66ea07186ffbe0a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 22 Feb 2016 23:00:46 -0500
Subject: [PATCH] Added TODO's

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

diff --git a/scheme/read.sld b/scheme/read.sld
index 7b34c52c..3ff73dff 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -305,10 +305,12 @@
               ;; Booleans
               ;; Do not use add-tok below, no need to quote a bool
               ((eq? #\t next-c) 
+;; TODO: read in rest of #true if it is there
                (if all?
                    (parse fp '() (cons #t toks) all? #f parens ptbl)
                    #t))
               ((eq? #\f next-c) 
+;; TODO: read in rest of #false if it is there
                (if all?
                    (parse fp '() (cons #f toks) all? #f parens ptbl)
                    #f))