From ab5de1c0c40953db8b1d22f2d3f3a4290a583a0c Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 29 Nov 2013 11:41:45 +0900
Subject: [PATCH] fix #6

---
 src/codegen.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/codegen.c b/src/codegen.c
index 571a3a1b..f6cfbc42 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -723,7 +723,10 @@ lift_cv(pic_state *pic, struct pic_irep *irep, int d)
       /* pass */
       break;
     case OP_LAMBDA:
-      lift_cv(pic, pic->irep[c.u.i], d + 1);
+      if (pic->irep[c.u.i]->cv_num == 0)
+	lift_cv(pic, pic->irep[c.u.i], d);
+      else
+	lift_cv(pic, pic->irep[c.u.i], d + 1);
       break;
     case OP_CREF:
     case OP_CSET: