From f7265a8c02b611af4fb32421572aced68c0634c9 Mon Sep 17 00:00:00 2001 From: Masamichi Hosoda Date: Sun, 14 Jun 2015 23:38:24 +0900 Subject: [PATCH] Issue 4451 / 2: Add debug messages for PNG scale down In procedure ``scale-down-image'' (ps-to-png.scm), debug messages are added. --- scm/ps-to-png.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm index a8a170cc2f..f5d40d0c5c 100644 --- a/scm/ps-to-png.scm +++ b/scm/ps-to-png.scm @@ -69,10 +69,14 @@ (search-pnmtopng) tmp2-name))) + (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) -- 2.39.2