Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +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)
(cond ((assq 'inline (cdr (cddr func))) => cadr)
(else #f))))
(assert (and (> (length func) 3)
(cond ((assq 'assert (cdr (cddr func))) => cdr)
(else '())))))
(assert (or (and (> (length func) 3)
(cond ((assq 'assert (cdr (cddr func))) => cdr)
(else #f)))
'())))
(let lp ((ls (if (equal? (car (cddr func)) '(void)) '() (car (cddr func))))
(i 0)
(results '())