impc:ti:get-typealias-type-pretty   scheme

;; as above but returns pretty type
(define impc:ti:get-typealias-type-pretty
  (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:pretty-print-type (impc:ir:pointer++ (vector-ref (cdr typealias-data) 0) ptr-depth))
              #f))
        #f)))