;; type is immutable, doesn't need a setter
(define impc:ti:get-globalvar-type
(lambda (globalvar-name)
(let ((globalvar-data (assoc-strcmp globalvar-name *impc:ti:globalvar-cache*)))
(if globalvar-data
(vector-ref (cdr globalvar-data) 0)
#f))))