From bae4e6974b5966fb2e9812c6f86a05d291a82c7e Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 9 Dec 2013 22:59:27 -0800
Subject: [PATCH] [bugfix] create a new senv before allocate a library

---
 src/lib.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/lib.c b/src/lib.c
index b2f9bf86..39e0c74b 100644
--- a/src/lib.c
+++ b/src/lib.c
@@ -8,13 +8,16 @@ struct pic_lib *
 pic_make_library(pic_state *pic, pic_value name)
 {
   struct pic_lib *lib;
+  struct pic_senv *senv;
 
   if ((lib = pic_find_library(pic, name)) != NULL) {
     return lib;
   }
 
+  senv = pic_minimal_syntactic_env(pic);
+
   lib = (struct pic_lib *)pic_obj_alloc(pic, sizeof(struct pic_lib), PIC_TT_LIB);
-  lib->senv = pic_minimal_syntactic_env(pic);
+  lib->senv = senv;
   lib->exports = xh_new();
   lib->name = name;