PS backend: remove unused code.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index cbc06429dcd034b66bfc8410301930e9f42158b1..7b993fbb2beeac6db31a6713a630e1c964cc0078 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -603,7 +603,6 @@ fonts inline."
 (define-public (output-preview-framework basename book scopes fields)
   (let* ((paper (ly:paper-book-paper book))
         (systems (ly:paper-book-systems book))
-        (scale (ly:output-def-lookup paper 'output-scale))
         (to-dump-systems '()))
     ;; skip booktitles.
     (if (and (not (ly:get-option 'include-book-title-preview))
@@ -627,26 +626,6 @@ fonts inline."
                        (format "~a.preview.eps" basename)
                        (cons "png" (ly:output-formats)))))
 
-(if #f
-    (define-public (output-preview-framework basename book scopes fields)
-      (let* ((paper (ly:paper-book-paper book))
-            (systems (ly:paper-book-systems book))
-            (scale (ly:output-def-lookup paper 'output-scale))
-            (titles (take-while paper-system-title? systems))
-            (non-title (find (lambda (x)
-                               (not (paper-system-title? x))) systems))
-            (dump-me
-             (stack-stencils Y DOWN 0.0
-                             (map paper-system-stencil
-                                  (append titles (list non-title))))))
-       (output-scopes scopes fields basename)
-       (dump-stencil-as-EPS paper dump-me
-                            (format "~a.preview" basename)
-                            #t)
-       (postprocess-output book framework-ps-module
-                           (format "~a.preview.eps" basename)
-                           (ly:output-formats)))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public (convert-to-pdf book name)