From 49f1d4b604db0273d93d858d438f4a171f343aad Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 12 Aug 2015 22:19:29 -0400
Subject: [PATCH] Added TODO

---
 scheme/eval.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 4773bb6e..9b2dc39b 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -383,8 +383,10 @@
         ((if? exp) (analyze-if exp))
         ((lambda? exp) (analyze-lambda exp))
       ;; Expand macros
+;; TODO: does not work below because car is a symbol ('or) and 
+;; not the actual macro. so how to look it up???
         ((and (pair? exp) (macro? (car exp)))
-(write (list 'debug 'macro exp))
+;(write (list 'debug 'macro exp))
          (analyze (apply (car exp) (cdr exp))))
       ;; TODO: ideally, macro system would handle these next three
         ((tagged-list? 'let exp)