;; 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*)))))