impc:compiler:print-dylib-loading-details-to-log   scheme

(define impc:compiler:print-dylib-loading-details-to-log
  (lambda (dylib-path)
    (let* ((basename (car (reverse (regex:split dylib-path "[/\\\\]"))))
           (libname (car (regex:split basename "[.]"))))
      (if (equal? *impc:compiler:message:level* 'high)
          (begin
            (print "Lib Load:  ")
            (print-with-colors *impc:compiler:pretty-print-name-color*
                               'default #t (print libname))
            (print " dynamic library loaded from ")
            (print-with-colors *impc:compiler:pretty-print-code-color*
                               'default #t (print dylib-path))
            (println))))))