run clip-systems in EPS mode too.

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index cf9bec54b30888aa08fc3526bcecb2a24fa8596a..fab2d771771dd4303c8420d5c95d865bc0a56af0 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -146,6 +146,9 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment."
 
 (define-public (output-framework basename book scopes fields)
   (output-scopes scopes fields basename)
+  (if (ly:get-option 'clip-systems)
+      (clip-system-EPSes basename book))
+
   (dump-stencils-as-EPSes
    (map page-stencil (ly:paper-book-pages book)) book basename))
   

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a277acb7416b3938effbb297a7400f974dbd6323..28579ebc96f93c0175d793fa39d8dd2547741cfb 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -603,7 +603,7 @@
     ))
 
 
-(define (clip-system-EPSes basename paper-book)
+(define-public (clip-system-EPSes basename paper-book)
   (define do-pdf (member  "pdf" (ly:output-formats)))
 
   (define (clip-score-systems basename systems)