(completize-formats): new function

(postprocess-output): new function

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 4a2a0b61935f903c0bffd33e22392d20ad619f57..b9a92961b6ccf35d27f03bffe2499a3d9a5c76f5 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -24,7 +24,7 @@
   (if (member "dvi" formats)
       (set! formats (cons "tex" formats)))
 
-  formats)
+  (uniq-list formats))
 
 (define framework-tex-module (current-module))
 (define-public (sanitize-tex-string s)

diff --git a/scm/lily.scm b/scm/lily.scm
index 4f621724d5a3ef113d0c173834e31664d4ff9767..f763340f34b0668921e7504d195adda04f95e176 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -336,7 +336,8 @@ predicates. Print a message at LOCATION if any predicate failed."
   (if (member "pdf" formats)
       (set! formats (cons "ps" formats)))
 
-  formats)
+  (uniq-list formats))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public (lilypond-main files)