From 488b6e162cee6b0f43fced38d04f83fbbbf5dbbc Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 13 Feb 2018 19:05:41 -0500
Subject: [PATCH] Adding temporary debug traces

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

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 4ef3bc0b..96b1fbf4 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -442,15 +442,21 @@
          ;; TODO: doing too much here, need to figure out a way to speed things up!
          (sym (cond
                 ((pair? lookup)
+(write `(lookup var ,lookup))
+(newline)
                  (car lookup))
                 (else
                   (call/cc (lambda (return)
                     (for-each
                       (lambda (v/r)
                         ;; Map renamed symbol back to one in env
-                        (if (eq? exp (cdr v/r))
+                        (when (eq? exp (cdr v/r))
+(write `(reverse lookup var ,v/r))
+(newline)
                             (return (car v/r))))
                       local-renamed)
+(write `(NO lookup var ,exp ,local-renamed))
+(newline)
                     (return exp))))))) ;; Not found, keep input symbol
     (lambda (env) 
       (env:lookup-variable-value sym env))))