impc:aot:insert-forms   macro

;; insert arbitrary sexp into the AOT-compilation
;; file, otherwise do nothing
(define-macro (impc:aot:insert-forms . forms)
  (if (output-port? *impc:aot:current-output-port*)
      `(begin
         ,@(map (lambda (sexp)
                  `(begin (write ',sexp *impc:aot:current-output-port*)
                          (newline *impc:aot:current-output-port*)))
                forms))))