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

[bugfix] pic_intern must count up reference of the return value

This commit is contained in:
Yuichi Nishiwaki 2015-01-19 14:09:47 +09:00
parent 44ff702e60
commit 772a5ceae5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extlib/benz/symbol.c
View File

@ -25,7 +25,9 @@ pic_intern(pic_state *pic, pic_str *str)
e = xh_get_str(&pic->syms, pic_str_cstr(str)); e = xh_get_str(&pic->syms, pic_str_cstr(str));
if (e) { if (e) {
return xh_val(e, pic_sym); sym = xh_val(e, pic_sym);
pic_gc_protect(pic, pic_obj_value(sym));
return sym;
} }
cstr = pic_malloc(pic, pic_strlen(str) + 1); cstr = pic_malloc(pic, pic_strlen(str) + 1);