From: David Kastrup <dak@gnu.org>
Date: Sat, 13 Jun 2015 15:17:40 +0000 (+0200)
Subject: Issue 4446: Remove redundant function filter-out (equal to srfi-1 remove)
X-Git-Tag: release/2.19.22-1~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6d2c871d87b1dde5351e8b678451209b467eb63a;p=lilypond.git

Issue 4446: Remove redundant function filter-out (equal to srfi-1 remove)
---

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 26987cd099..240096cad2 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -283,9 +283,6 @@
      (module-remove! output-module x))
    missing-stencil-list))
 
-(define (filter-out pred? lst)
-  (filter (lambda (x) (not (pred? x))) lst))
-
 (define-public (font-name-split font-name)
   "Return @code{(FONT-NAME . DESIGN-SIZE)} from @var{font-name} string
 or @code{#f}."
@@ -319,12 +316,12 @@ definition."
 
   (let* ((font-list (ly:paper-fonts paper))
          (pango-fonts (filter ly:pango-font? font-list))
-         (other-fonts (filter-out ly:pango-font? font-list))
+         (other-fonts (remove ly:pango-font? font-list))
          (other-font-names (map ly:font-name other-fonts))
          (pango-only-fonts
-          (filter-out (lambda (x)
-                        (member (pango-font-name x) other-font-names))
-                      pango-fonts)))
+          (remove (lambda (x)
+                    (member (pango-font-name x) other-font-names))
+                  pango-fonts)))
 
     (define (font-load-command font)
       (let* ((font-name (ly:font-name font))