mark global variables

This commit is contained in:
Yuichi Nishiwaki 2013-10-18 00:17:55 +09:00
parent e7a5784fd7
commit a0e2089e56
1 changed files with 5 additions and 0 deletions

View File

@ -189,6 +189,11 @@ gc_mark_phase(pic_state *pic)
gc_mark(pic, env->assoc); gc_mark(pic, env->assoc);
} while ((env = env->parent) != NULL); } while ((env = env->parent) != NULL);
/* globals */
for (i = 0; i < pic->glen; ++i) {
gc_mark(pic, pic->globals[i]);
}
gc_mark(pic, pic->sDEFINE); gc_mark(pic, pic->sDEFINE);
gc_mark(pic, pic->sLAMBDA); gc_mark(pic, pic->sLAMBDA);
gc_mark(pic, pic->sCONS); gc_mark(pic, pic->sCONS);