(define impc:ir:pointer? (lambda (type) (let ((t (impc:ir:str-list-check type))) (if (string? t) (> (impc:ir:get-ptr-depth t) 0) (if (>= t *impc:ir:other*) #f (if (>= t *impc:ir:pointer*) #t #f))))))