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

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index 428b95c87b5da8a022412f5f5ccc4e9847658ea7..f6bb29d701be0c331fadf51fe6b4410a570de06d 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -291,7 +291,7 @@
                     (append (cdr lines) (list #f)))
           (paper-system-annotate-last (car (last-pair lines)) layout)))
 
-    (map add-system lines)
+    (for-each add-system lines)
 
 
     (ly:prob-set-property! page 'bottom-system-edge