impc:aot:insert-sexpr   scheme


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

Implementation

;; insert arbitrary sexp into the AOT-compilation
(define impc:aot:insert-sexpr
  (lambda (sexpr)
    (if (output-port? *impc:aot:current-output-port*)
        (begin (write sexpr *impc:aot:current-output-port*)
               (newline *impc:aot:current-output-port*)))))


Back to Index