fix ffi type annotations

This commit is contained in:
Alex Shinn 2020-05-31 23:39:55 +09:00
parent 6caca77426
commit 6f1cf6588f

View file

@ -1829,8 +1829,8 @@
(i 1))
(cond
((null? ls))
((type-value (car ls))
(lp (cdr ls) i))
;; ((type-value (car ls))
;; (lp (cdr ls) i))
((eq? 'sexp (type-base (car ls)))
(lp (cdr ls) (+ i 1)))
((<= i 3)