Issue 3897: Some spring cleaning mostly concerning cumbersome apply calls

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index ab278a1dcb7c5cc55da89a83f9d57a1ddfef083f..8fa1f0e10e9f7e0188ed172e7a678e93886893c5 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -82,16 +82,12 @@
 (define (page-translate-systems page)
   (for-each
 
-   (lambda (sys-off)
-     (let*
-         ((sys (car sys-off))
-          (off (cadr sys-off)))
+   (lambda (sys off)
+     (if (not (number? (ly:prob-property sys 'Y-offset)))
+         (ly:prob-set-property! sys 'Y-offset off)))
 
-       (if (not (number? (ly:prob-property sys 'Y-offset)))
-           (ly:prob-set-property! sys 'Y-offset off))))
-
-   (zip (page-property page 'lines)
-        (page-property page 'configuration))))
+   (page-property page 'lines)
+   (page-property page 'configuration)))
 
 (define (annotate-top-space first-system layout header-stencil stencil)
   (let* ((top-margin (ly:output-def-lookup layout 'top-margin))