impc:compiler:flush-jit-compilation-queue   scheme

(define impc:compiler:flush-jit-compilation-queue
  (lambda ()
    (if *impc:compiler:print-raw-llvm*
        (print-full-nq *impc:compiler:queued-llvm-ir-string*))
    (if (not (string=? *impc:compiler:queued-llvm-ir-string* ""))
        (let ((res (llvm:jit-compile-ir-string *impc:compiler:queued-llvm-ir-string*)))
          (impc:compiler:reset-jit-compilation-queue)
          ;; (print "Flushed IR compilation queue with result: " res "\n")
          res))))