impc:ir:floating-point?   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/llvmir.xtm

Implementation

(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))))))


Back to Index