Merge branch 'lilypond/translation' of ssh://trettig@git.sv.gnu.org/srv/git/lilypond...

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

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index deca66008a977edd6738e895c9695ff5f5c24e6a..474a89628adad1fe968adfa9724618595629868d 100644 (file)
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -108,7 +108,7 @@
                      ((string-contains format-str "jpeg") "jpeg")
                      (else
                       (ly:error "Unknown pixmap format ~a" pixmap-format))))
-         (base (basename (re-sub "[.]e?ps" "" ps-name)))
+         (base (dir-basename ps-name ".ps" ".eps"))
          (png1 (format "~a.~a" base extension))
          (pngn (format  "~a-page%d.~a" base extension))
          (page-count (ps-page-count ps-name))