From 49e1f54195ff71d098952eaf11309afe8bd0903e Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 16 Oct 2013 13:24:19 +0900
Subject: [PATCH] fix stack operation bug

---
 src/vm.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/vm.c b/src/vm.c
index 4c46eeaf..5adc066e 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -409,7 +409,7 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
       NEXT;
     }
     CASE(OP_CALL) {
-      pic_value c;
+      pic_value c, v;
       struct pic_proc *proc;
 
       pic_gc_protect(pic, c = POP());
@@ -418,10 +418,11 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
       ci->proc = proc;
       ci->argc = pc->u.i;
       if (pic_proc_cfunc_p(c)) {
-	PUSH(proc->u.cfunc(pic));
+	v = proc->u.cfunc(pic);
 	pic->sp -= ci->argc;
 	POPCI();
 	ci = pic->ci - 1;
+	PUSH(v);
       }
       else {
 	pic_raise(pic, "closure call not suppoted");