conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove test_object_creation from main.c

This commit is contained in:
Yuichi Nishiwaki 2013-10-17 21:00:54 +09:00
parent f425ed6bb7
commit b58c6d1e8b
2 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/picconf.h
View File

@ -17,7 +17,6 @@
#define DEBUG 1 #define DEBUG 1
#if DEBUG #if DEBUG
# define OBJECT_CREATION_DEBUG 1
# define GC_DEBUG 1 # define GC_DEBUG 1
# define VM_DEBUG 1 # define VM_DEBUG 1
#endif #endif

26
src/main.c
View File

@ -9,28 +9,6 @@
# include <readline/history.h> # include <readline/history.h>
#endif #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 CODE_MAX_LENGTH 1024
#define LINE_MAX_LENGTH 256 #define LINE_MAX_LENGTH 256
@ -48,10 +26,6 @@ main()
pic = pic_open(); pic = pic_open();
#if OBJECT_CREATION_DEBUG
test_object_creation(pic);
#endif
ai = pic_gc_arena_preserve(pic); ai = pic_gc_arena_preserve(pic);
while (1) { while (1) {