Proper loglevels: cmd-line option --loglevel=NONE/ERROR/WARN/BASIC/PROGRESS/DEBUG

[lilypond.git] / scm / backend-library.scm

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 93cd2c02d8b3e2ce30f38c851f7f5d06547f6edb..b58d8aca89ef4382f967463f82e5f67366597799 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -24,10 +24,7 @@
             (ice-9 optargs))
 
 (define-public (ly:system command)
-  (if (ly:get-option 'verbose)
-      (begin
-       (ly:message (_ "Invoking `~a'...") (string-join command)))
-      (ly:progress "\n"))
+  (ly:debug (_ "Invoking `~a'...") (string-join command))
   (let ((status (apply ly:spawn command)))
     (if (> status 0)
        (begin