impc:ir:closure?   scheme


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

Implementation

(define impc:ir:closure?
  (lambda (type)
    (if (list? type)
        (if (< (length type) 2) #f
            (if (impc:ir:closure? (car type)) #t #f))
        (let ((t (impc:ir:str-list-check type)))
          (if (string? t) #f
              (if (= (modulo t *impc:ir:pointer*) *impc:ir:closure*)
                  #t #f))))))


Back to Index

Similar Entries

  • t:closure?    scheme