From 3895be298a4f1d1f3b5b680c49ca6d20603dcd9e Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 2 Dec 2011 22:54:20 +0900
Subject: [PATCH] Fixing vector sizing bug in FFI for functions of 6 or more
 arguments.

---
 tools/chibi-ffi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/chibi-ffi b/tools/chibi-ffi
index 7ed23d42..5ffaaab1 100755
--- a/tools/chibi-ffi
+++ b/tools/chibi-ffi
@@ -1089,7 +1089,7 @@
                     (if (= i 4)
                         (cat "    sexp_opcode_argn_type(op) = "
                              "sexp_make_vector(ctx, sexp_make_fixnum("
-                             (- i 3) "),"
+                             (- (length (func-c-args func)) 3) "),"
                              " sexp_make_fixnum(SEXP_OBJECT));\n"))
                     (cat "    sexp_vector_set(sexp_opcode_argn_type(op), "
                          "sexp_make_fixnum(" (- i 4) "), "