emit more friendly error message on error from piclib loader

2015-06-26 13:20:49 +09:00
parent 21c12e9fe5
commit fccb4b16ea
2 changed files with 8 additions and 7 deletions
@@ -44,11 +44,11 @@ main(int argc, char *argv[], char **envp)
  pic = pic_open(pic_default_allocf, NULL);
  pic_set_argv(pic, argc, argv, envp);

-  pic_init_picrin(pic);
-
-  PICRIN_MAIN = pic_find_library(pic, pic_read_cstr(pic, "(picrin main)"));
-
  pic_try {
+    pic_init_picrin(pic);
+
+    PICRIN_MAIN = pic_find_library(pic, pic_read_cstr(pic, "(picrin main)"));
+
    pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
  }
  pic_catch {