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