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

fix bug in previous patch - only use array length in sexp_c_string for explicit result params

Browse source
This commit is contained in:
Alex Shinn 2011-11-26 06:57:24 +00:00
parent e608bec866
commit fd425fb1ec
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/chibi-ffi
View file

@ -457,7 +457,9 @@
(type-id-value type)))) (type-id-value type))))
(define (c-array-length 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) (define (c->scheme-converter type val . o)
(let ((base (type-base type))) (let ((base (type-base type)))