From 237e8c26a63e1d30575a7121cce2a6b0ff86f069 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 24 Jan 2014 17:10:51 +0900
Subject: [PATCH] wrong length for call operation

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

diff --git a/src/codegen.c b/src/codegen.c
index af069c02..bba802eb 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1039,7 +1039,7 @@ codegen(codegen_state *state, pic_value obj)
       codegen(state, pic_car(pic, obj));
     }
     cxt->code[cxt->clen].insn = (sym == state->sCALL) ? OP_CALL : OP_TAILCALL;
-    cxt->code[cxt->clen].u.i = len;
+    cxt->code[cxt->clen].u.i = len - 1;
     cxt->clen++;
     return;
   }