X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps-to-png.scm;h=5e78d0c7c0d3997267972f5d11053a3cc0d8bbb5;hb=a1625514bdd5c9c66837ff67b65ab0ec75537255;hp=80bb58abcca28579c7ff3d6fe26477c13b27de79;hpb=7129b9a1b73c400593ccc08418b294afef1513a1;p=lilypond.git

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 80bb58abcc..5e78d0c7c0 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.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>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -63,15 +63,11 @@
 ;; copy of ly:system. ly:* not available via lilypond-ps2png.scm
 (define (my-system be-verbose exit-on-error cmd)
   (define status 0)
-  (if be-verbose
-      (begin
-	(format (current-error-port) (_ "Invoking `~a'...") cmd)
-	(newline (current-error-port))))
+  (ly:debug (_ "Invoking `~a'...\n") cmd)
   (set! status (system cmd))
   (if (not (= status 0))
       (begin
-	(format (current-error-port)
-		(format #f (_ "~a exited with status: ~S") "GS" status))
+	(ly:error (_ "~a exited with status: ~S") "GS" status)
 	(if exit-on-error (exit 1))))
   status)
 
@@ -84,7 +80,7 @@
       (my-system
        be-verbose #t
        (format #f
-	       "pngtopnm ~a | pnmscale -reduce ~a 2>/dev/null | pnmtopng -compression 9 2>/dev/null > ~a"
+	       "pngtopnm \"~a\" | pnmscale -reduce ~a 2>/dev/null | pnmtopng -compression 9 2>/dev/null > \"~a\""
 	       old factor file))
       (delete-file old)))