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