From 4e98d37ab15f610d827f7b23eefc9eacb7108a16 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 3 Dec 2013 13:08:23 +0900
Subject: [PATCH] remove old debug prints

---
 piclib/built-in.scm | 2 --
 src/gc.c            | 2 ++
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index bed1a218..f884c106 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -578,8 +578,6 @@
 ;;; hygienic macros
 
 (define (walk f obj)
-  (write obj)
-  (newline)
   (if (pair? obj)
       (cons (walk f (car obj)) (walk f (cdr obj)))
       (if (vector? obj)
diff --git a/src/gc.c b/src/gc.c
index dae60db3..8049a2af 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -41,7 +41,9 @@ add_heap_page(pic_state *pic)
   struct heap_page *page;
   size_t nu;
 
+#if GC_DEBUG
   puts("adding heap page!");
+#endif
 
   nu = (PIC_HEAP_PAGE_SIZE + sizeof(union header) - 1) / sizeof(union header) + 1;