]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/layout-page-layout.scm
Move page-breaking-wrapper into C++.
[lilypond.git] / scm / layout-page-layout.scm
index ffd6d632c4d2d8e4bdd4ba4536eb0652e6b9d6fd..d1c18ab57305419014decc701e3357f5d1ccf17f 100644 (file)
                  (cdr spacing)))))
       page)))
 
-(define (page-breaking-wrapper paper-book)
-  "Compute line and page breaks by calling the page-breaking paper variable,
-  then performs the post process function using the page-post-process paper
-  variable. Finally, return the pages."
-  (let* ((paper (ly:paper-book-paper paper-book))
-         (pages ((ly:output-def-lookup paper 'page-breaking) paper-book)))
-    ((ly:output-def-lookup paper 'page-post-process) paper pages)
-    pages))
-
 (define (post-process-pages layout pages)
   "If the write-page-layout paper variable is true, dumps page breaks
   and tweaks."