''

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 2108e99262df0c11ded40373301a09cce565e80b..656c8a7bd6746c871f6678ad79628b68fe80db2e 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -114,11 +114,15 @@
 
 
 (define (ly-load x)
-  ;; should check verbose
-;;  (format (current-error-port) "[~s]" x)
-  (primitive-load (%search-load-path x))
-
-  )
+  (let*
+      (
+       (fn (%search-load-path x))
+       )
+    (if (ly-verbose)
+       (format (current-error-port) "[~A]" fn))
+    (primitive-load fn)
+
+    ))