[bugfix] define standard functions before loading piclibs
This commit is contained in:
parent
97bb9085af
commit
d98cb495a3
12
src/init.c
12
src/init.c
|
@ -83,7 +83,13 @@ pic_init_core(pic_state *pic)
|
||||||
pic_define_syntactic_keyword(pic, pic->lib->env, pic->sDEFINE_SYNTAX, pic->rDEFINE_SYNTAX);
|
pic_define_syntactic_keyword(pic, pic->lib->env, pic->sDEFINE_SYNTAX, pic->rDEFINE_SYNTAX);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
pic_deflibrary (pic, "(picrin library)") {
|
||||||
|
pic_defun(pic, "libraries", pic_libraries);
|
||||||
|
}
|
||||||
|
|
||||||
pic_deflibrary (pic, "(scheme base)") {
|
pic_deflibrary (pic, "(scheme base)") {
|
||||||
|
pic_defun(pic, "features", pic_features);
|
||||||
|
|
||||||
pic_init_bool(pic); DONE;
|
pic_init_bool(pic); DONE;
|
||||||
pic_init_pair(pic); DONE;
|
pic_init_pair(pic); DONE;
|
||||||
pic_init_port(pic); DONE;
|
pic_init_port(pic); DONE;
|
||||||
|
@ -111,11 +117,5 @@ pic_init_core(pic_state *pic)
|
||||||
|
|
||||||
pic_load_piclib(pic); DONE;
|
pic_load_piclib(pic); DONE;
|
||||||
pic_init_contrib(pic); DONE;
|
pic_init_contrib(pic); DONE;
|
||||||
|
|
||||||
pic_defun(pic, "features", pic_features);
|
|
||||||
}
|
|
||||||
|
|
||||||
pic_deflibrary (pic, "(picrin library)") {
|
|
||||||
pic_defun(pic, "libraries", pic_libraries);
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue