From 04375c3056a47e9eb5be89c7e55f3bca12205820 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 16 Mar 2014 23:32:28 +0900
Subject: [PATCH] [bugfix] propagate errors through the VM

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

diff --git a/src/vm.c b/src/vm.c
index 877fcf29..9926bc89 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -822,7 +822,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
 
       pic->jmp = prev_jmp;
       if (pic->err) {
-	return pic_undef_value();
+	longjmp(*pic->jmp, 1);
       }
 
 #if VM_DEBUG