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 #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) {