From 728a4cb9d559932e9713efec7c20e148a9cbe740 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 16 Oct 2013 09:29:47 +0900
Subject: [PATCH] [gc] mark ci

---
 src/gc.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/gc.c b/src/gc.c
index 951a66ac..cf3bd75b 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -157,6 +157,7 @@ static void
 gc_mark_phase(pic_state *pic)
 {
   pic_value *stack;
+  pic_callinfo *ci;
   struct pic_env *env;
   int i;
 
@@ -165,6 +166,11 @@ gc_mark_phase(pic_state *pic)
     gc_mark(pic, *stack);
   }
 
+  /* callinfo */
+  for (ci = pic->cibase; ci != pic->ci; ++ci) {
+    gc_mark_object(pic, (struct pic_object *)ci->proc);
+  }
+
   /* arena */
   for (i = 0; i < pic->arena_idx; ++i) {
     gc_mark_object(pic, pic->arena[i]);