X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps-to-png.scm;h=e2a0d6cb205665eb10963ad615ea9f54cf498418;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=0becaeef97dcecbe595f174f305968fc22bc3bb1;hpb=cf137655b7aee9988ef536d6fa5e38d279ee73cf;p=lilypond.git

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 0becaeef97..e2a0d6cb20 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2005--2012 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2005--2015 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -114,7 +114,9 @@
                       ((string-contains format-str "jpeg") "jpeg")
                       (else
                        (ly:error "Unknown pixmap format ~a" pixmap-format))))
-          (base (dir-basename ps-name ".ps" ".eps"))
+          (base (string-join
+                 (string-split (dir-basename ps-name ".ps" ".eps") #\%)
+                 "%%"))
           (png1 (format #f "~a.~a" base extension))
           (pngn (format #f "~a-page%d.~a" base extension))
           (page-count (ps-page-count ps-name))
@@ -165,7 +167,7 @@
 
      (if (not (= 0 status))
          (begin
-           (map delete-file files)
+           (for-each delete-file files)
            (exit 1)))
 
      (if (and rename-page-1 multi-page?)