From 3266ae7d3c20f81e839d062c3a6fbbfe197ec52f Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 28 Nov 2013 13:15:27 +0900
Subject: [PATCH] [bugfix] missed to mark stx->senv

---
 src/gc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gc.c b/src/gc.c
index fe6e2176..d0fbf1e3 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -268,7 +268,7 @@ gc_mark_object(pic_state *pic, struct pic_object *obj)
       gc_mark_object(pic, (struct pic_object *)stx->macro);
     }
     if (stx->senv) {
-      gc_mark_object(pic, (struct pic_object *)stx->macro);
+      gc_mark_object(pic, (struct pic_object *)stx->senv);
     }
     break;
   }