X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flayout-page-dump.scm;h=8237106f063ff967f447d05ae27cde2dd41a307b;hb=af99781b40aed8c6dedbd7d78f1a893355a98e09;hp=edb2780a5330b742479138a72f98e323362bb86d;hpb=28eb8b5ae1302d6cfba9d054d4d764f7d59cb195;p=lilypond.git

diff --git a/scm/layout-page-dump.scm b/scm/layout-page-dump.scm
index edb2780a53..8237106f06 100644
--- a/scm/layout-page-dump.scm
+++ b/scm/layout-page-dump.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;	 2006 Nicolas Sceaux <nicolas.sceaux@free.fr>
 
 (define-module (scm layout-page-dump)
@@ -70,12 +70,11 @@
 	(format out-port "~a\n~a\n" skip base)
 	(dump-tweaks out-port (cdr tweak-list) (graceless-moment now)))))
 
-(define (dump-all-tweaks pages tweaks)
-  (let* ((paper (ly:paper-book-paper (page-property  (car pages) 'paper-book)))
-	 (parser (ly:output-def-parser paper))
-	 (name	(format "~a-page-layout.ly"
-			(ly:parser-output-name parser)))
+(define (dump-all-tweaks pages tweaks output-name)
+  (let* ((paper (ly:paper-book-paper (page-property (car pages) 'paper-book)))
+	 (name (format "~a-page-layout.ly" output-name))
 	 (out-port (open-output-file name)))
+    
     (ly:message "Writing page layout to ~a" name)
     (hash-for-each
      (lambda (key val)
@@ -85,7 +84,7 @@
      tweaks)
     (close-port out-port)))
 
-(define (write-page-breaks pages)
+(define (write-page-breaks pages output-name)
   "Dump page breaks and tweaks"
   (let ((tweaks (make-hash-table 60)))
     (define (handle-page page)
@@ -145,4 +144,4 @@
 		(record-line-tweak (cdr lines) #f (1+ index)))))))
     ;; Compute tweaks for each page, then dump them to the page-layout file
     (for-each handle-page pages)
-    (dump-all-tweaks pages tweaks)))
+    (dump-all-tweaks pages tweaks output-name)))