From b58c6d1e8bd76baa7324e8cb83f5acc55bc3db9c Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 17 Oct 2013 21:00:54 +0900
Subject: [PATCH] remove test_object_creation from main.c

---
 include/picconf.h |  1 -
 src/main.c        | 26 --------------------------
 2 files changed, 27 deletions(-)

diff --git a/include/picconf.h b/include/picconf.h
index 35677f9f..dada58c8 100644
--- a/include/picconf.h
+++ b/include/picconf.h
@@ -17,7 +17,6 @@
 #define DEBUG 1
 
 #if DEBUG
-# define OBJECT_CREATION_DEBUG 1
 # define GC_DEBUG 1
 # define VM_DEBUG 1
 #endif
diff --git a/src/main.c b/src/main.c
index 07f3edc3..d068904d 100644
--- a/src/main.c
+++ b/src/main.c
@@ -9,28 +9,6 @@
 # include <readline/history.h>
 #endif
 
-void
-test_object_creation(pic_state *pic)
-{
-  pic_value v;
-
-  {
-    v = pic_intern_cstr(pic, "symbol");
-    pic_debug(pic, v);
-    puts(" [should be `symbol`]");
-  }
-  {
-    v = pic_nil_value();
-    pic_debug(pic, v);
-    puts(" [should be `()`]");
-  }
-  {
-    v = pic_cons(pic, pic_intern_cstr(pic, "foo"), pic_intern_cstr(pic, "bar"));
-    pic_debug(pic, v);
-    puts(" [should be `(foo . bar)`]");
-  }
-}
-
 #define CODE_MAX_LENGTH 1024
 #define LINE_MAX_LENGTH 256
 
@@ -48,10 +26,6 @@ main()
 
   pic = pic_open();
 
-#if OBJECT_CREATION_DEBUG
-  test_object_creation(pic);
-#endif
-
   ai = pic_gc_arena_preserve(pic);
 
   while (1) {