use pic_deflibrary in init.c

This commit is contained in:
Yuichi Nishiwaki 2014-03-01 19:54:29 +09:00
parent 95dc14bac2
commit 6ddaa0eda0
1 changed files with 33 additions and 32 deletions

View File

@ -79,8 +79,7 @@ pic_init_core(pic_state *pic)
{
int ai = pic_gc_arena_preserve(pic);
pic_make_library(pic, pic_parse(pic, "(scheme base)"));
pic_in_library(pic, pic_parse(pic, "(scheme base)"));
pic_deflibrary ("(scheme base)") {
/* load core syntaces */
pic->lib->senv = pic_core_syntactic_env(pic);
@ -115,4 +114,6 @@ pic_init_core(pic_state *pic)
pic_load_stdlib(pic); DONE;
pic_defun(pic, "features", pic_features);
}
}