(write-page-breaks): record tweaks

for different \score blocks separately.
(post-process-pages): put write-page-layout into paper block.

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index 812e4bc044ba686d4eace959322fafe80e2f7b92..52544ec2fafd5c105a3feaf28eb0ca461c0cfcbd 100644 (file)
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -127,19 +127,14 @@
        (set! index (1+ index))
        ))
     (for-each handle-system (page-lines page)))
-  
-  
+
   (for-each handle-page pages)
   (dump-all-tweaks))
 
-
-
 (define (post-process-pages layout pages)
-  (if (ly:output-def-lookup layout 'write-page-layout)
+  (if (ly:output-def-lookup layout 'write-page-layout #f)
       (write-page-breaks pages)))
 
-
-
 ;;; optimal page breaking
 
 ;;; This is not optimal page breaking, this is optimal distribution of