From da4e7a9d87e111caf120135ff6bfd51504c3e5b8 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 20 Oct 2015 18:43:02 -0400 Subject: [PATCH] Removed debug code --- scheme/eval.sld | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 71c04bd6..45f69be6 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -11,7 +11,7 @@ ;(scheme cyclone libraries) ;; for handling import sets (scheme base) (scheme file) - (scheme write) ;; Only used for debugging + ;(scheme write) ;; Only used for debugging (scheme read)) (export ;environment @@ -252,8 +252,7 @@ primitive-procedures)) (define (primitive-procedure-objects) - (write `(DEBUG ,primitive-procedures)) - (map (lambda (proc) (write `(DEBUG2 ,proc)) (list 'primitive (cadr proc))) + (map (lambda (proc) (list 'primitive (cadr proc))) primitive-procedures)) (define (apply-primitive-procedure proc args)