From 9cb777eec320f9d66e0a29320857d6eba4f21af6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 7 Dec 2013 07:05:22 -0800
Subject: [PATCH] select the minimal library at first

---
 src/state.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/state.c b/src/state.c
index 18e7b5c7..9afa08c1 100644
--- a/src/state.c
+++ b/src/state.c
@@ -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;