remove test_object_creation from main.c
This commit is contained in:
parent
f425ed6bb7
commit
b58c6d1e8b
|
@ -17,7 +17,6 @@
|
|||
#define DEBUG 1
|
||||
|
||||
#if DEBUG
|
||||
# define OBJECT_CREATION_DEBUG 1
|
||||
# define GC_DEBUG 1
|
||||
# define VM_DEBUG 1
|
||||
#endif
|
||||
|
|
26
src/main.c
26
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) {
|
||||
|
|
Loading…
Reference in New Issue