(define impc:ir:floating-point?
(lambda (type)
(let ((t (impc:ir:str-list-check type)))
(if (string? t) #f
(if (>= t *impc:ir:other*) #f
(if (member t ;;(modulo t *impc:ir:pointer*)
(list *impc:ir:fp64* *impc:ir:fp32*))
#t #f))))))