[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_deflibrary (pic, "(picrin library)") {
|
||||
pic_defun(pic, "libraries", pic_libraries);
|
||||
}
|
||||
|
||||
pic_deflibrary (pic, "(scheme base)") {
|
||||
pic_defun(pic, "features", pic_features);
|
||||
|
||||
pic_init_bool(pic); DONE;
|
||||
pic_init_pair(pic); DONE;
|
||||
pic_init_port(pic); DONE;
|
||||
|
@ -111,11 +117,5 @@ pic_init_core(pic_state *pic)
|
|||
|
||||
pic_load_piclib(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