Issue 5080/1: Comment fix for alternativeRestores

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

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index a8a170cc2fb31886c5074d904cafe1e9660f8bf7..f20ca61b41a471c0b7646c9248915fdf1138670f 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -69,10 +69,16 @@
            (search-pnmtopng)
            tmp2-name)))
 
+    (close-port port-tmp1)
+    (close-port port-tmp2)
+    (ly:debug (_ "Copying `~a' to `~a'...") file tmp1-name)
     (copy-binary-file file tmp1-name)
     (ly:system-with-shell cmd)
+    (ly:debug (_ "Copying `~a' to `~a'...") tmp2-name file)
     (copy-binary-file tmp2-name file)
+    (ly:debug (_ "Deleting `~a'...") tmp1-name)
     (delete-file tmp1-name)
+    (ly:debug (_ "Deleting `~a'...") tmp2-name)
     (delete-file tmp2-name)))
 
 (define-public (ps-page-count ps-name)