]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/backend-library.scm
* lily/kpath.cc:
[lilypond.git] / scm / backend-library.scm
index 742e5e16b082a85de576be69ec7de61c6c47f275..010bff09dc4e42763d2d74dadecebc47c236b26d 100644 (file)
 
 (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)