impc:ti:get-typealias-type   scheme

(define impc:ti:get-typealias-type
  (lambda (typealias-name)
    (if (string? typealias-name)
        (let ((ptr-depth (impc:ir:get-ptr-depth typealias-name))
              (typealias-data (assoc-strcmp (impc:ir:clean-named-type typealias-name) *impc:ti:typealias-cache*)))
          (if typealias-data (impc:ir:pointer++ (vector-ref (cdr typealias-data) 0) ptr-depth) #f))
        #f)))