;; JIT-compile the IR string, or queue it for AOT-compilation
(define llvm:compile-ir
(lambda (ir-string)
(if (impc:aot:currently-compiling?)
(impc:compiler:queue-ir-for-compilation ir-string)
(begin
(if *impc:compiler:print-raw-llvm* (print-full-nq ir-string))
(llvm:jit-compile-ir-string ir-string)))))