impc:aot:import-ll   scheme

(define impc:aot:import-ll
  (lambda (libname)
    (if (and (output-port? *impc:aot:current-output-port*)
             (not *impc:compiler:aot:dll*))
        (begin
          (write `(llvm:compile-ir (sys:slurp-file ,(string-append "libs/aot-cache/" libname ".ll")))
                  *impc:aot:current-output-port*)
          (display (string-append ";; flush the JIT-compilation queue, so we only get this file's code in the module\n"
                                  "(impc:compiler:flush-jit-compilation-queue)\n")
                   *impc:aot:current-output-port*)))))