X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbackend-library.scm;h=0734a1a83427339603fd641ff19488ccac5073b0;hb=37b502a6f5030f9801a070f3aa68be08b4024350;hp=b58d8aca89ef4382f967463f82e5f67366597799;hpb=84e144718964f20c48ff8dccaea8de9741df07e4;p=lilypond.git

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index b58d8aca89..0734a1a834 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2005--2011 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2005--2012 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -28,8 +28,7 @@
   (let ((status (apply ly:spawn command)))
     (if (> status 0)
 	(begin
-	  (ly:message (_ "`~a' failed (~a)") command status)
-	  (ly:progress "\n")
+	  (ly:warning (_ "`~a' failed (~a)\n") command status)
 	  ;; hmmm.  what's the best failure option? 
 	  (throw 'ly-file-failed)))))
 
@@ -88,8 +87,7 @@
 	       "-c.setpdfwrite"
 	       (string-append "-f" name)))))
 
-    (ly:message (_ "Converting to `~a'...") pdf-name)
-    (ly:progress "\n")
+    (ly:message (_ "Converting to `~a'...\n") pdf-name)
     (ly:system cmd)))
 
 (define-public (postscript->png resolution paper-width paper-height name)