From 76ec63d1ca954c53070c049c35511c3b8c378d33 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 30 Oct 2013 10:05:47 +0900
Subject: [PATCH] adjust callinfo when OP_STOP

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

diff --git a/src/vm.c b/src/vm.c
index 4c2d38df..aa0ed709 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -516,9 +516,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
 
     L_STOP:
       val = POP();
-
-      /* pop the first procedure */
-      POPN(1);
+      pic->sp = POPCI()->fp;
 
       pic->jmp = NULL;
       if (pic->errmsg) {