X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-eps.scm;h=60d468a123d708019585762670cf8ad203bfdbbe;hb=c8ad65d84d9c5f939c787fe956ac1346f9294bd4;hp=c0087f46d28ae0d32588ad933af1364db06dfa75;hpb=44dd3acc534e7a534f846810b481c3f603eaa92e;p=lilypond.git

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index c0087f46d2..60d468a123 100644
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2004--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -83,8 +83,10 @@ alignment."
   ;; First, create the output, then if necessary, individual staves and
   ;; finally write some auxiliary files if desired
   (dump-infinite-stack-EPS stencils)
-  (postprocess-output book framework-eps-module
-                      (format #f "~a.eps" basename) (ly:output-formats))
+  (postprocess-output book framework-eps-module (ly:output-formats)
+                      basename
+                      (format #f "~a.eps" basename)
+                      #t)
 
   ;; individual staves (*-1.eps etc.); only print if more than one stencil
   ;; Otherwise the .eps and the -1.eps file will be identical and waste space
@@ -95,7 +97,9 @@ alignment."
              (eps-files (map dump-counted-stencil counted-systems)))
         (if do-pdf
             ;; par-for-each: a bit faster ...
-            (for-each (lambda (y) (postscript->pdf 0 0 y))
+            (for-each (lambda (y) (postscript->pdf 0 0
+                                                   (dir-basename y ".eps")
+                                                   y #t))
                       eps-files))))
 
   ;; Now, write some aux files if requested: .texi, .tex and .count
@@ -152,7 +156,7 @@ alignment."
                           book
                           basename))
 
-                                        ; redefine to imports from framework-ps
+;; redefine to imports from framework-ps
 (define convert-to-pdf
   convert-to-pdf)