protect more objects during expansion

This commit is contained in:
Yuichi Nishiwaki 2013-11-21 06:31:32 -08:00
parent f146287eff
commit 00fc0ee931
1 changed files with 3 additions and 0 deletions

View File

@ -45,6 +45,8 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
int ai = pic_gc_arena_preserve(pic); int ai = pic_gc_arena_preserve(pic);
#if DEBUG #if DEBUG
printf("current ai = %d\n", ai);
printf("expanding..."); printf("expanding...");
pic_debug(pic, obj); pic_debug(pic, obj);
puts(""); puts("");
@ -130,6 +132,7 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_gc_protect(pic, v); pic_gc_protect(pic, v);
pic_gc_protect(pic, obj);
} }
v = pic_reverse(pic, v); v = pic_reverse(pic, v);