impc:ti:make-array-check   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/llvmti.xtm

Implementation

(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))))


Back to Index