conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[bugfix] create a new senv before allocate a library

This commit is contained in:
Yuichi Nishiwaki 2013-12-09 22:59:27 -08:00
parent 738fd549d8
commit bae4e6974b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib.c
View File

@ -8,13 +8,16 @@ struct pic_lib *
pic_make_library(pic_state *pic, pic_value name) pic_make_library(pic_state *pic, pic_value name)
{ {
struct pic_lib *lib; struct pic_lib *lib;
struct pic_senv *senv;
if ((lib = pic_find_library(pic, name)) != NULL) { if ((lib = pic_find_library(pic, name)) != NULL) {
return lib; return lib;
} }
senv = pic_minimal_syntactic_env(pic);
lib = (struct pic_lib *)pic_obj_alloc(pic, sizeof(struct pic_lib), PIC_TT_LIB); 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->exports = xh_new();
lib->name = name; lib->name = name;