diff options
| author | Masamichi Hosoda <trueroad@trueroad.jp> | 2016-07-09 01:37:27 +0900 |
|---|---|---|
| committer | Masamichi Hosoda <trueroad@trueroad.jp> | 2016-07-14 22:58:30 +0900 |
| commit | 2fe27fd7d3cf488ba62de66a02a285accdfa8da1 (patch) | |
| tree | 4ee5dc546f867867c41e65da133d8d4db2e84447 | |
| parent | 264fa8be61f503a1c9952b70633018e752afd226 (diff) | |
Issue 4923/2: Add closing a file in `scale-down-image`
This commit adds `close-port` for closing a file
in `scale-down-image`.
| -rw-r--r-- | scm/ps-to-png.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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) |