From 7751464294477cf55684e331a117776f259e9bf5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 15 Jul 2020 23:01:51 -0400
Subject: [PATCH] Added TODO's, start to flesh out changes

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

diff --git a/scheme/read.sld b/scheme/read.sld
index 91fe984c..d3c75991 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -66,6 +66,10 @@
           (read-error fp "unexpected closing parenthesis")
           result)))))
 
+;; TODO: read given file, collecting source location information so we
+;;       can give meaningful compiler error messages
+;; read-all/source -> port -> filename
+
 ;; read-all -> port -> [objects]
 (define (read-all . args)
   (let ((fp (if (null? args)
@@ -142,6 +146,7 @@
           (Cyc-opaque-unsafe-string->number token))
          ;; Open paren, start read loop
          ((Cyc-opaque-unsafe-eq? token #\()
+  ;; TODO: save line number
           (let loop ((lis '())
                      (t (parse fp)))
             (cond
@@ -151,6 +156,8 @@
                (if (and (> (length lis) 2)
                         (equal? (cadr lis) *sym-dot*))
                    (->dotted-list (reverse lis))
+   ;; TODO: call code here to save line num (only if arg != #f),
+   ;;       want to do this if pair w/car of symbol
                    (reverse lis)))
               (else
                (loop (cons t lis) (parse fp))))))