Remove dots that overflow chords; issue 3179

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index bfae0ea2f434b5d94732bd88cf682d3083a1f89e..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
@@ -373,4 +373,3 @@
       (page-set-property! page 'printable-height (calc-printable-height page)))
 
   (page-property page 'printable-height))
-