OP_STOP to return exception object on error

1 files changed, 3 insertions, 0 deletions

diff --git a/src/vm.c b/src/vm.c
index cfb404ee3..7049bbb45 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1562,6 +1562,9 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
       /*        stop VM */
     L_STOP:
       mrb->jmp = prev_jmp;
+      if (mrb->exc) {
+	return mrb_obj_value(mrb->exc);
+      }
       return regs[irep->nlocals];
     }