From 91c412adc5950cf7e417f63107d00488675af2dc Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 4 Jan 2005 23:29:52 +0000 Subject: [PATCH] (completize-formats): new function (postprocess-output): new function --- scm/framework-tex.scm | 2 +- scm/lily.scm | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.5