impc:aot:currently-compiling?   scheme


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

Implementation

(define impc:aot:currently-compiling?
  (lambda ()
    (or (output-port? *impc:aot:current-output-port*)
        ;; this will be #t in a suppress-aot-do form
        *impc:aot:current-output-port*)))


Back to Index