From 6d2c871d87b1dde5351e8b678451209b467eb63a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 13 Jun 2015 17:17:40 +0200 Subject: [PATCH] Issue 4446: Remove redundant function filter-out (equal to srfi-1 remove) --- scm/backend-library.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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)) -- 2.39.2