managed to make it work

This commit is contained in:
Yuichi Nishiwaki
2014-09-01 09:53:19 +09:00
parent 8764bec50b
commit 7f092cb9ab
3 changed files with 42 additions and 2 deletions
+18 -1
View File
@@ -35,11 +35,19 @@ pic_libraries(pic_state *pic)
return libs;
}
void pic_init_eval(pic_state *);
void pic_init_file(pic_state *);
void pic_init_load(pic_state *);
void pic_init_macro2(pic_state *);
void pic_init_system(pic_state *);
void pic_init_time(pic_state *);
void pic_init_contrib(pic_state *);
void pic_load_piclib(pic_state *);
void
pic_init_misc(pic_state *pic)
pic_init_picrin(pic_state *pic)
{
pic_deflibrary (pic, "(picrin library)") {
pic_defun(pic, "libraries", pic_libraries);
@@ -47,7 +55,16 @@ pic_init_misc(pic_state *pic)
pic_deflibrary (pic, "(scheme base)") {
pic_defun(pic, "features", pic_features);
pic_init_eval(pic);
pic_init_file(pic);
pic_init_load(pic);
pic_init_macro2(pic);
pic_init_system(pic);
pic_init_time(pic);
pic_init_contrib(pic);
pic_load_piclib(pic);
}
}
+2
View File
@@ -13,6 +13,8 @@ main(int argc, char *argv[], char **envp)
pic = pic_open(argc, argv, envp);
pic_init_picrin(pic);
pic_try {
pic_import(pic, pic_read_cstr(pic, "(picrin main)"));
pic_funcall(pic, "main", pic_nil_value());