X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpage.scm;h=f6bb29d701be0c331fadf51fe6b4410a570de06d;hb=4024156d2ebb9d7b5caf34dde98afca000d4b296;hp=428b95c87b5da8a022412f5f5ccc4e9847658ea7;hpb=bd751630011a6fbfcf069ec1fc41a8eaed8a6b87;p=lilypond.git

diff --git a/scm/page.scm b/scm/page.scm
index 428b95c87b..f6bb29d701 100644
--- 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