From dd4b7243e059abf7fe6cf02d158d689922b92944 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 1 Dec 2017 13:15:53 -0500 Subject: [PATCH] Disable debugging --- scheme/eval.sld | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 37e24a9b..cefab2ed 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -459,8 +459,8 @@ ;; 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? -(write `(DEBUG ,cleaned)) -(newline) +;(write `(DEBUG ,cleaned)) +;(newline) (analyze cleaned a-env))) (define (analyze-syntax exp a-env) @@ -848,8 +848,8 @@ (current-error-port)) (newline (current-error-port))) ;(log exp) -(write `(expand ,exp)) -(newline) +;(write `(expand ,exp)) +;(newline) (cond ((const? exp) exp) ((prim? exp) exp) @@ -939,8 +939,8 @@ (if local (cdr local) (env:lookup (car exp) env #f))))) -(write `(app DEBUG ,(car exp) ,val)) -(newline) +;(write `(app DEBUG ,(car exp) ,val)) +;(newline) (cond ((tagged-list? 'macro val) (_expand ; Could expand into another macro