Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-27 16:26:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Alex Shinn 2010-01-20 20:45:06 +09:00
parent 925401c114
commit ad1be9cbcd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/genstubs.scm
View file

@ -260,7 +260,7 @@
(s-args '())) (s-args '()))
(cond (cond
((null? ls) ((null? ls)
(if (>= i 6) (if (> i 6)
(error "FFI currently only supports up to 6 scheme args" func)) (error "FFI currently only supports up to 6 scheme args" func))
(vector scheme-name c-name stub-name ret-type (vector scheme-name c-name stub-name ret-type
(reverse results) (reverse c-args) (reverse s-args))) (reverse results) (reverse c-args) (reverse s-args)))