fixing FFI # args check (> 6), not (>= 6)

This commit is contained in:
Alex Shinn 2010-01-20 20:45:06 +09:00
parent 925401c114
commit ad1be9cbcd

View file

@ -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)))