* scm/framework-ps.scm (output-classic-framework): dump a

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index a9d5d15c39449147860dfacad743fea8bf2828c0..265e506978285c233bbecb143a902a4133e92fe3 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -323,23 +323,32 @@ predicates. Print a message at LOCATION if any predicate failed."
                  "--verbose "
                  " ")
              name)))
+
     (ly:system cmd)))
 
 (define-public (postprocess-output paper-book module filename formats)
-  (for-each (lambda (f)
-             ((eval (string->symbol (string-append "convert-to-" f))
-                    module)
-              paper-book filename))
-             
-           formats))
+  (for-each
+   (lambda (f)
+     ((eval (string->symbol (string-append "convert-to-" f))
+           module)
+      paper-book filename))
+   
+   formats))
 
 (define-public (completize-formats formats)
+  (define new-fmts '())
+
   (if (member "png" formats)
       (set! formats (cons "ps" formats)))
   (if (member "pdf" formats)
       (set! formats (cons "ps" formats)))
 
-  (uniq-list formats))
+  (for-each
+   (lambda (x)
+     (if (member x formats) (set! new-fmts (cons x new-fmts))))
+   '("tex" "dvi" "ps" "pdf" "png"))
+
+  new-fmts)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;