(define impc:ir:complex-type? (lambda (type) (cond ((impc:ir:closure? type) #t) ((impc:ir:tuple? type) #t) ((impc:ir:array? type) #t) ((impc:ir:vector? type) #t) (else #f))))