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;