- (if (= (chain-assoc-get 'page:page-number props -1)
- (ly:output-def-lookup (ancestor layout) 'first-page-number))
+ (= (chain-assoc-get 'page:page-number props -1)
+ (ly:output-def-lookup (ancestor layout) 'first-page-number)))
+
+#(define (book-last-page? layout props)
+ "Return #t iff the current page number, got from @code{props}, is the
+book last one."
+ (and (chain-assoc-get 'page:is-bookpart-last-page props #f)
+ (chain-assoc-get 'page:is-last-bookpart props #f)))
+
+#(define (first-page layout props arg)
+ (if (book-first-page? layout props)