From fd425fb1ecabe0dbe81d980a424005b03f31f342 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 26 Nov 2011 06:57:24 +0000 Subject: [PATCH] fix bug in previous patch - only use array length in sexp_c_string for explicit result params --- tools/chibi-ffi | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/chibi-ffi b/tools/chibi-ffi index 571f69f0..cd8c4ca7 100755 --- a/tools/chibi-ffi +++ b/tools/chibi-ffi @@ -457,7 +457,9 @@ (type-id-value type)))) (define (c-array-length type) - (or (get-array-length #f type) "-1")) + (if (memq 'result (type-array type)) + "sexp_unbox_fixnum(res)" + "-1")) (define (c->scheme-converter type val . o) (let ((base (type-base type)))