impc:compiler:print-compiler-warning   scheme

(define impc:compiler:print-compiler-warning
  (lambda (message . ast)
    (print-with-colors *impc:compiler:pretty-print-type-color*
                       'default #t (print "Compiler Warning"))
    (print " " message)
    (if (not (null? ast))
        (begin (print " ast: ")
               (print-with-colors *impc:compiler:pretty-print-code-color* 'default #f
                                  (print (car ast)))))
    (println)
    (if (impc:aot:currently-compiling?)
        (quit 2)
        (throw ""))))