From dcc49baa3bf78ec169197f03f1564cd42ac43b2a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 13 Dec 2017 19:12:13 -0500
Subject: [PATCH] WIP, enabled debugging for diagnostic

---
 scheme/eval.sld | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 1db88f8d..c9f02556 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -858,10 +858,10 @@
       (current-error-port))
     (newline (current-error-port)))
   ;(log exp)
-;;(display "/* ")
-;;(write `(expand ,exp))
-;;(display "*/ ")
-;;(newline)
+(display "/* ")
+(write `(expand ,exp))
+(display "*/ ")
+(newline)
   (cond
     ((const? exp)      exp)
     ((prim? exp)       exp)
@@ -988,10 +988,10 @@
                            #;(if v
                                v
                                (env:lookup (car exp) rename-env #f)))))))
-;;(display "/* ")
-;;(write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f)))
-;;(display "*/ ")
-;;(newline)
+(display "/* ")
+(write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f)))
+(display "*/ ")
+(newline)
           (cond
            ((tagged-list? 'macro val)
             (_expand ; Could expand into another macro
@@ -1081,6 +1081,7 @@
           rename-env
           local-env))
        ((or (define-syntax? this-exp)
+            (letrec-syntax? this-exp)
             (let-syntax? this-exp)
             (lambda? this-exp)
             (set!? this-exp)