From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Fri, 8 Jul 2016 16:37:27 +0000 (+0900)
Subject: Issue 4923/2: Add closing a file in `scale-down-image`
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=2fe27fd7d3cf488ba62de66a02a285accdfa8da1;p=lilypond.git

Issue 4923/2: Add closing a file in `scale-down-image`

This commit adds `close-port` for closing a file
in `scale-down-image`.
---

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index f5d40d0c5c..f20ca61b41 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -69,6 +69,8 @@
            (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)