X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps-to-png.scm;h=936217f184c1e8db81783b86d344eb34a973f5a3;hb=b551257a9d5d4bd1b57d32ac0cea4684260dfd83;hp=caffb9aeda8d3dd717d607917684cddaf9a009b6;hpb=8653d9aa5dea51d0c3432896d70a39857b44df24;p=lilypond.git

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index caffb9aeda..936217f184 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -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)