(define impc:aot:insert-generic-func
  (lambda (expr)
    (if (output-port? *impc:aot:current-output-port*)
        (begin
          ;; (println 'inserting 'generic 'func: expr)
          (write expr *impc:aot:current-output-port*)
          (newline *impc:aot:current-output-port*)))))