should raise error on return in block in top-level; close #664

1 files changed, 4 insertions, 0 deletions

diff --git a/src/vm.c b/src/vm.c
index da6700bdf..bce92c9d8 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1199,6 +1199,10 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
               goto L_RAISE;
             }
             ci = mrb->ci = mrb->cibase + e->cioff;
+	    if (ci == mrb->cibase) {
+              localjump_error(mrb, "return");
+              goto L_RAISE;
+	    }
             break;
           }
         case OP_R_NORMAL: