impc:compiler:print-bind-func-details-to-log   scheme

(define impc:compiler:print-bind-func-details-to-log
  (lambda (lead-string symname type zone-size . args)
    (if (equal? *impc:compiler:message:level* 'high)
        (begin
          (print lead-string " ")
          (print-with-colors *impc:compiler:pretty-print-name-color* 'default #t (print symname))
          (print " >>> ")
          (print-with-colors *impc:compiler:pretty-print-type-color* 'default #f  (print type))
          (if (= (length args) 1)
              (print-with-colors *impc:compiler:pretty-print-code-color* 'default #f (print " " (car args))))
          (println)))))