From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 4 Jan 2005 23:29:52 +0000 (+0000)
Subject: (completize-formats): new function
X-Git-Tag: release/2.5.14~314
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=91c412adc5950cf7e417f63107d00488675af2dc;p=lilypond.git

(completize-formats): new function
(postprocess-output): new function
---

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 4a2a0b6193..b9a92961b6 100644
--- 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 4f621724d5..f763340f34 100644
--- 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)