release: 1.3.147

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index ecef13045457a4565bd03330f06661c7e11bb6bd..8f456711cb70803794da56b5d55e83edc7f9f188 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -24,20 +24,6 @@
        )
        ))
   
-(define (filter-list pred? list)
-  "return that part of LIST for which PRED is true."
-  (if (null? list) '()
-      (let* (
-            (rest  (filter-list pred? (cdr list)))
-            )
-       (if (pred?  (car list))
-           (cons (car list)  rest)
-           rest
-           )
-       )
-      )
-  )
-
 ;;;;;;;;; TODO TODO . (should not use filtering?)
 ;; this is bad, since we generate garbage every font-lookup.
 ;; otoh, if the qualifiers is narrow enough , we don't generate much garbage.