(write-preamble): remove debugging output.

[lilypond.git] / scm / ps-to-png.scm

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 05ee8e8924c92c7fadd19c1be0cfd52f9b0a2b2e..18462c724a184545b8b1d100e6ce7afa42869853 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -101,12 +101,15 @@
  -dNOPAUSE\
  -dTextAlphaBits=4\
  -sDEVICE=png16m\
- -sOutputFile='~a'\
+ -sOutputFile=~S\
  -sPAPERSIZE=~a\
  -r~S\
- '~a'\
+ ~S\
  -c showpage\
- -c quit" (search-gs) output-file paper-size resolution ps-name)
+ -c quit"
+                          (search-gs)
+                          (if verbose? "" "-q")
+                          output-file paper-size resolution ps-name)
                   (format #f "~a\
  ~a\
  -s\
@@ -115,9 +118,9 @@
  -dNOPAUSE\
  -dTextAlphaBits=4\
  -sDEVICE=png16m\
- -sOutputFile='~a'\
+ -sOutputFile=~S\
  -r~S\
- '~a'\
+ ~S\
  -c quit"
                           (search-gs)
                           (if verbose? "" "-q")
@@ -144,5 +147,5 @@
                   (format #f (_ "~a exited with status: ~S") "GS" status))
           (exit 1)))
      (if (and rename-page-1? multi-page?)
-        (rename (re-sub "%d" "1" pngn) png1))
+        (rename-file (re-sub "%d" "1" pngn) png1))
      (append (dir-re "." png1) (dir-re "." pngn-re)))))