(define impc:ti:make-array-check
(lambda (ast vars kts request?)
;; (println 'make-array request?)
(let* ((a (impc:ti:type-check (cadr ast) vars kts #f))
(b (map (lambda (x) (set! a (impc:ti:type-check x vars kts a))) (cddr ast))))
(list *impc:ir:array* (length (cdr ast)) a))))