Issue 3580: Replace unwarranted uses of map with for-each and other Scheme cleanups

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 22e5b6730210663a3ee59a6f3e7ba8b2ef807456..43b05e57c20d8fa6b5b9e784d434cb5c564d1c58 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -535,10 +535,7 @@ For example:
          (list elem)))
    '() lst))
 
-(define-public (filtered-map proc lst)
-  (filter
-   (lambda (x) x)
-   (map proc lst)))
+(define-public filtered-map filter-map)
 
 (define-public (flatten-list x)
   "Unnest list."