From 99ca3323b0eb94aff2d3fffe4ed524aa49e409ed Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 8 Feb 2018 22:42:21 -0500
Subject: [PATCH] Remove debug output

---
 scheme/eval.sld | 64 ++++++++++++++++++++++++++-----------------------
 1 file changed, 34 insertions(+), 30 deletions(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index b08580e5..a0143acf 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -463,14 +463,16 @@
     ;; 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 let-syntax ,exp ))
-(newline)
-(write `(DEBUG EXPANDED ,expanded))
-(newline)
-(write `(DEBUG CLEANED ,cleaned))
-(display "*/ ")
-(newline)
+;(display "/* ")
+;(write `(DEBUG let-syntax ,exp ))
+;(newline)
+;(write `(DEBUG EXPANDED ,expanded))
+;(newline)
+;(write `(DEBUG CLEANED ,cleaned))
+;(newline)
+;(write `(DEBUG env ,a-env))
+;(display "*/ ")
+;(newline)
     (analyze cleaned a-env rename-env)))
 
 (define (analyze-letrec-syntax exp a-env rename-env)
@@ -495,12 +497,12 @@
          (expanded (expand exp macro-env rename-env))
          (cleaned (macro:cleanup expanded rename-env))
         )
-(display "/* ")
-(write `(DEBUG letrec-syntax ,exp ))
-(newline)
-(write `(DEBUG EXPANDED ,cleaned))
-(display "*/ ")
-(newline)
+;(display "/* ")
+;(write `(DEBUG letrec-syntax ,exp ))
+;(newline)
+;(write `(DEBUG EXPANDED ,cleaned))
+;(display "*/ ")
+;(newline)
     (analyze cleaned a-env rename-env)))
 
 (define (analyze-syntax exp a-env)
@@ -579,12 +581,12 @@
                         ;            (Cyc-er-rename rename-env a-env '())
                         ;            (Cyc-er-compare? rename-env a-env)))
                      ))
-(display "/* ")
-(write `(DEBUG expand ,exp ))
-(newline)
-(write `(EXPANDED ,expanded))
-(display "*/ ")
-(newline)
+;(display "/* ")
+;(write `(DEBUG expand ,exp ))
+;(newline)
+;(write `(EXPANDED ,expanded))
+;(display "*/ ")
+;(newline)
                  (analyze expanded 
                           a-env
                           rename-env))
@@ -598,12 +600,12 @@
                       ; (expanded (eval expr a-env)) ;; Expand macro
                       (expanded (macro:expand exp (list 'macro macro-op) a-env rename-env '()))
                      )
-(display "/* ")
-(write `(DEBUG expand ,exp))
-(newline)
-(write `(EXPANDED ,expanded))
-(display "*/ ")
-(newline)
+;(display "/* ")
+;(write `(DEBUG expand ,exp))
+;(newline)
+;(write `(EXPANDED ,expanded))
+;(display "*/ ")
+;(newline)
                  (analyze
                    expanded
                    a-env
@@ -914,10 +916,12 @@
       (current-error-port))
     (newline (current-error-port)))
   ;(log exp)
-(display "/* ")
-(write `(expand ,exp))
-(display "*/ ")
-(newline)
+;(display "/* ")
+;(write `(expand ,exp))
+;(newline)
+;(write `(DEBUG env ,env))
+;(display "*/ ")
+;(newline)
   (cond
     ((const? exp)      exp)
     ((and (prim? exp) ;; Allow lambda vars to shadown primitives