llvm:get-native-closure   scheme


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

Implementation

;; a helper for returning a native closure (if one exists!)
(define llvm:get-native-closure
  (lambda (name)
    (if (impc:aot:currently-compiling?)
        (impc:compiler:print-not-during-aot-error)
        (let ((f (llvm:get-function (string-append name "_getter"))))
          (if f (llvm:run f)
              '())))))


Back to Index