configure: Match one PFB font if duplicates are found

[lilypond.git] / scm / song-util.scm

diff --git a/scm/song-util.scm b/scm/song-util.scm
index 22e5d83bd9d6612ede9133cd86bcf9d4acacf9fb..2453a14ed3af109357300009bbfda76a28494709 100644 (file)
--- a/scm/song-util.scm
+++ b/scm/song-util.scm
@@ -116,15 +116,6 @@
   `(set! ,list-var (append ,list-var (list ,object))))
 (export add!)
 
-(define-public (flatten lst)
-  (cond
-   ((null? lst)
-    lst)
-   ((pair? (car lst))
-    (append (flatten (car lst)) (flatten (cdr lst))))
-   (else
-    (cons (car lst) (flatten (cdr lst))))))
-
 (define-public (safe-car list)
   (if (null? list)
       #f