From ad1be9cbcd3693b9c19d437c737cc048c4fd0276 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 20 Jan 2010 20:45:06 +0900 Subject: [PATCH] fixing FFI # args check (> 6), not (>= 6) --- tools/genstubs.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/genstubs.scm b/tools/genstubs.scm index 06bd9c3c..5d4a89f1 100755 --- a/tools/genstubs.scm +++ b/tools/genstubs.scm @@ -260,7 +260,7 @@ (s-args '())) (cond ((null? ls) - (if (>= i 6) + (if (> i 6) (error "FFI currently only supports up to 6 scheme args" func)) (vector scheme-name c-name stub-name ret-type (reverse results) (reverse c-args) (reverse s-args)))