From 36d04852889fb8b7568913315b9883202d2e4991 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 21 May 2015 01:20:27 -0400
Subject: [PATCH] Removed debug code

---
 cgen.scm  | 4 ++--
 runtime.c | 6 +-----
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/cgen.scm b/cgen.scm
index 4346ebbc..1045e741 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -981,7 +981,7 @@
         (emit "static void c_entry_pt(argc, env,cont) int argc; closure env,cont; { "))
       (else
         (emit (string-append "void c_" (lib:name->string lib-name) "_entry_pt(argc, cont,value) int argc; closure cont; object value;{ "))
-        (emit (string-append "printf(\"init " (lib:name->string lib-name) "\\n\");"))
+        ; DEBUG (emit (string-append "printf(\"init " (lib:name->string lib-name) "\\n\");"))
       ))
 
     ;; Initialize global table
@@ -1082,7 +1082,7 @@
             (string-append "(" this-clo ".fn)(0, &" this-clo ", &" this-clo ");"))
           (emit "}")
           (emit "static void c_entry_pt_first_lambda(int argc, closure cont, object value) {")
-          (emit (string-append "printf(\"init first lambda\\n\");"))
+          ; DEBUG (emit (string-append "printf(\"init first lambda\\n\");"))
           (emit compiled-program)))
       (else
         ;; Do not use funcall1 macro as it might not have been defined
diff --git a/runtime.c b/runtime.c
index a9342eed..6f215820 100644
--- a/runtime.c
+++ b/runtime.c
@@ -421,11 +421,7 @@ list assq(x,l) object x; list l;
  return boolean_f;}
 
 list assoc(x,l) object x; list l;
-{
- printf("JAE DEBUG, assoc received: ");
- Cyc_display(l);
- printf("\n");
- if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
+{if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
  for (; !nullp(l); l = cdr(l))
    {register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;}
  return boolean_f;}