Merge commit 'origin/dev/jneeman' into systems-per-page

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index 068572694b6a0d61147aa3fad80fb5171c67bca7..a4862198010c206a36b72febae29b8d3ee3aeefa 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -137,7 +137,7 @@
 
 
 (define (page-headfoot layout scopes number sym separation-symbol dir
-                      is-book-last-page is-part-last-page)
+                      is-last-bookpart is-bookpart-last-page)
   
   "Create a stencil including separating space."
 
@@ -146,7 +146,7 @@
         (stencil (ly:make-stencil "" '(0 . 0) '(0 . 0)))
         (head-stencil
          (if (procedure? header-proc)
-             (header-proc layout scopes number is-book-last-page is-part-last-page)
+             (header-proc layout scopes number is-last-bookpart is-bookpart-last-page)
              #f)))
     
     (if (and (number? sep)
@@ -197,8 +197,8 @@
        (layout (ly:paper-book-paper paper-book))
        (scopes (ly:paper-book-scopes paper-book))
        (number (page-page-number page))
-       (is-book-last-page (page-property page 'is-last))
-       (is-part-last-page (page-property page 'is-part-last)))
+       (is-last-bookpart (page-property page 'is-last-bookpart))
+       (is-bookpart-last-page (page-property page 'is-bookpart-last-page)))
        
       (page-headfoot layout scopes number
                (if (= dir UP)
@@ -207,7 +207,7 @@
                (if (= dir UP)
                    'head-separation
                    'foot-separation)
-               dir is-book-last-page is-part-last-page)))
+               dir is-last-bookpart is-bookpart-last-page)))
 
 (define (page-header page)
   (page-header-or-footer page UP))
@@ -253,7 +253,7 @@
        ;; TODO: naming paper-height/paper-width not analogous to TeX.
        
        (system-xoffset (ly:output-def-lookup layout 'horizontal-shift 0.0))
-       (system-separator-markup (ly:output-def-lookup layout 'systemSeparatorMarkup))
+       (system-separator-markup (ly:output-def-lookup layout 'system-separator-markup))
        (system-separator-stencil (if (markup? system-separator-markup)
                                     (interpret-markup layout
                                                       (layout-extract-page-properties layout)