Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

ensure ffi assertions are a proper list

Browse source
This commit is contained in:
Alex Shinn 2021-07-28 10:25:18 +09:00
parent dd05444d91
commit 7854371728
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/chibi-ffi
View file

@ -326,9 +326,10 @@
(inline (and (> (length func) 3) (inline (and (> (length func) 3)
(cond ((assq 'inline (cdr (cddr func))) => cadr) (cond ((assq 'inline (cdr (cddr func))) => cadr)
(else #f)))) (else #f))))
(assert (and (> (length func) 3) (assert (or (and (> (length func) 3)
(cond ((assq 'assert (cdr (cddr func))) => cdr) (cond ((assq 'assert (cdr (cddr func))) => cdr)
(else '()))))) (else #f)))
'())))
(let lp ((ls (if (equal? (car (cddr func)) '(void)) '() (car (cddr func)))) (let lp ((ls (if (equal? (car (cddr func)) '(void)) '() (car (cddr func))))
(i 0) (i 0)
(results '()) (results '())