select the minimal library at first

2013-12-07 07:05:22 -08:00
parent 7c6ba80581
commit 9cb777eec3
1 changed files with 4 additions and 0 deletions
@@ -118,6 +118,10 @@ pic_open(int argc, char *argv[], char **envp)
  register_core_symbol(pic, sGE, ">=");
  pic_gc_arena_restore(pic, ai);

+  /* set library */
+  pic_make_library(pic, pic_symbol_value(pic_intern_cstr(pic, "user")));
+  pic_in_library(pic, pic_symbol_value(pic_intern_cstr(pic, "user")));
+
  pic_init_core(pic);

  return pic;