From f40232e9eb893cf207e4c24fceb0b0b97da8232c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 Dec 2017 17:59:49 -0500
Subject: [PATCH] Removed debug traces

---
 scheme/eval.sld | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 40bae95b..761d4bfd 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -384,10 +384,10 @@
 ;; - env => Environment used to expand macros
 ;;
 (define (analyze exp env)
-(newline)
-(display "/* ")
-(write (list 'analyze exp))
-(display " */")
+;;(newline)
+;;(display "/* ")
+;;(write (list 'analyze exp))
+;;(display " */")
   (cond ((self-evaluating? exp) 
          (analyze-self-evaluating exp))
         ((quoted? exp) (analyze-quoted exp))
@@ -459,10 +459,10 @@
     ;; TODO: probably just create a fresh env for renames
     ;; TODO: expand, do we need to clean as well?
     ;; TODO: run results back through analyze: (analyze (expand env? rename-env?
-(display "/* ")
-(write `(DEBUG ,cleaned))
-(display "*/ ")
-(newline)
+;;(display "/* ")
+;;(write `(DEBUG ,cleaned))
+;;(display "*/ ")
+;;(newline)
     (analyze cleaned a-env)))
 
 (define (analyze-syntax exp a-env)
@@ -850,10 +850,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)
@@ -953,10 +953,10 @@
                      (if local
                          (cdr local)
                          (env:lookup (car exp) env #f)))))
-(display "/* ")
-(write `(app DEBUG ,(car exp) ,val))
-(display "*/ ")
-(newline)
+;;(display "/* ")
+;;(write `(app DEBUG ,(car exp) ,val))
+;;(display "*/ ")
+;;(newline)
           (cond
            ((tagged-list? 'macro val)
             (_expand ; Could expand into another macro