(define impc:ir:clean-named-type (lambda (str) (if (and (char=? (string-ref str 0) #\%)) (set! str (substring str 1 (string-length str)))) (impc:ir:get-base-type str)))