impc:compiler:print-unsupported-conversion-error   scheme

(define impc:compiler:print-unsupported-conversion-error
  (lambda (from to)
    (print-with-colors *impc:compiler:pretty-print-error-color*
                       'default #t (print "Type Error"))
    (print " unsupported conversion from " )
    (print-with-colors *impc:compiler:pretty-print-type-color* 'default #f (print (if (number? from) (impc:ir:get-type-str from) from)))
    (print " to ")
    (print-with-colors *impc:compiler:pretty-print-type-color* 'default #f (print (if (number? to) (impc:ir:get-type-str to) to) "\n"))
    (if (impc:aot:currently-compiling?)
        (quit 2)
        (throw ""))))