From 06a67df950a4a56190e1047d42054e0307f8c301 Mon Sep 17 00:00:00 2001
From: ksss <co000ri@gmail.com>
Date: Fri, 9 May 2014 07:16:23 +0900
Subject: OP_ENTER clean block object in register

---
 src/vm.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/vm.c b/src/vm.c
index 317b5f6b1..620f9e977 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1307,6 +1307,7 @@ RETRY_TRY_BLOCK:
       mrb->c->ci->argc = len;
       if (argc < len) {
         regs[len+1] = *blk; /* move block */
+        SET_NIL_VALUE(regs[argc+1]);
         if (argv0 != argv) {
           value_move(&regs[1], argv, argc-m2); /* m1 + o */
         }
-- 
cgit v1.2.3