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

[lilypond.git] / scm / document-context-mods.scm

diff --git a/scm/document-context-mods.scm b/scm/document-context-mods.scm
index fc3c4ad28a7101ba4748280a2908d8156943bb09..f5034d2ecc10129e8603ea52eeaf94157234bc41 100644 (file)
--- a/scm/document-context-mods.scm
+++ b/scm/document-context-mods.scm
@@ -81,11 +81,8 @@
      (map document-mod-list mod-list))))
 
 (define (document-mod obj-pair)
-  (cond
-   ((ly:context-mod? (cdr obj-pair))
-    (document-context-mod obj-pair))
-   (else
-    #f)))
+  (and (ly:context-mod? (cdr obj-pair))
+       (document-context-mod obj-pair)))
 
 (define context-mods-doc-string
   (format
@@ -94,11 +91,9 @@
 @end table
 "
    (string-join
-    (filter
-     identity
-     (map
-      document-mod
-      (sort
-       (ly:module->alist (current-module))
-       identifier<?)))
-    "")))
+    (filter-map
+     document-mod
+     (sort
+      (ly:module->alist (current-module))
+      identifier<?)))
+   ""))