X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=010bff09dc4e42763d2d74dadecebc47c236b26d;hb=4300e287a18cbc4569c79f8e8445609dc7d4546a;hp=742e5e16b082a85de576be69ec7de61c6c47f275;hpb=a4c5ddfc34f2ad0bf4311a1582bde3be060ce8b8;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 742e5e16b0..010bff09dc 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -10,20 +10,18 @@
 
 (define-public (ly:system command)
   (let* ((status 0)
-
 	 (silenced
 	  (string-append command (if (ly:get-option 'verbose)
 				     ""
 				     " > /dev/null 2>&1 "))))
-    
+
     (if (ly:get-option 'verbose)
-	(format  (current-error-port) (_ "Invoking `~a'...\n") command))
+	(format (current-error-port) (_ "Invoking `~a'...") command))
     
     (set! status (system silenced))
     (if (> status 0)
 	(begin
-	  (format (current-error-port)
-		  (_ "Error invoking `~a'. Return value ~a") silenced status)
+	  (format (current-error-port) (_ "`~a' failed (~a)") command status)
 	  (newline (current-error-port))))))
 
 (define-public (sanitize-command-option str)