From 3d523a80817b3cb3dbea7a6ec2628df0b73a4225 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 18 Oct 2013 01:30:35 +0900
Subject: [PATCH] the first callinfo's argc is 1

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

diff --git a/src/vm.c b/src/vm.c
index 25119cc3..c31a4a07 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -494,7 +494,7 @@ pic_run(pic_state *pic, struct pic_proc *proc, pic_value args)
 
   /* adjust call frame */
   pic->sp[0] = pic_obj_value(proc);
-  pic->ci->argc = 0;
+  pic->ci->argc = 1;
   pic->ci->pc = NULL;
   pic->ci->sp = NULL;