X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ftitling-init.ly;h=f397ad6bd90177b34de35c2f28ba5d96d8ce15f6;hb=1397ca12f954dc106b06ac06f0fcd1c9aea503f7;hp=eb9ced5375c577714e31e005877a71caeaad6fe9;hpb=6847983a10f40946dfd25e97c0bedbdc8b9de2be;p=lilypond.git

diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index eb9ced5375..f397ad6bd9 100644
--- a/ly/titling-init.ly
+++ b/ly/titling-init.ly
@@ -76,14 +76,8 @@ scoreTitleMarkup = \markup { \column {
 #(define (book-first-page? layout props)
    "Return #t iff the current page number, got from @code{props}, is the
 book first one."
-   (define (ancestor layout)
-     "Return the topmost layout ancestor"
-     (let ((parent (ly:output-def-parent layout)))
-       (if (not (ly:output-def? parent))
-           layout
-           (ancestor parent))))
    (= (chain-assoc-get 'page:page-number props -1)
-      (ly:output-def-lookup (ancestor layout) 'first-page-number)))
+      (book-first-page layout props)))
 
 #(define (book-last-page? layout props)
    "Return #t iff the current page number, got from @code{props}, is the