From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 5 Sep 2004 12:27:47 +0000 (+0000)
Subject: (ly:optimal-page-breaks): typo.
X-Git-Tag: release/2.3.14~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4e45de322a9484c2b43e2535b64e355ef03aa023;p=lilypond.git

(ly:optimal-page-breaks): typo.
---

diff --git a/ChangeLog b/ChangeLog
index d6b14869ae..ed29928e0d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-09-05  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* scm/page-layout.scm (ly:optimal-page-breaks): typo.
+
 	* input/regression/quote-cyclic.ly (Module): new file.
 
 	* scm/lily.scm (print): add function.
diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 3587606561..5c2834b478 100644
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -306,11 +306,12 @@ is what have collected so far, and has ascending page numbers."
 		  ragged?))
 	 (force (car result))
 	 (positions
-	  (map (lambda (y) (+ y topskip) y) 
+	  (map (lambda (y)
+		       (+ y topskip)) 
 	       (cdr  result)))
 	 )
 
-     (if #f ;; debug.
+     (if #t ;; debug.
 	 (begin
 	   (display (list "\n# systems: " no-systems
 			  "\nreal-ext" real-extents "\nstaff-ext" staff-extents
@@ -318,10 +319,12 @@ is what have collected so far, and has ascending page numbers."
 			  "\nspace-letf" space-left
 			  "\npage empty" page-very-empty
 			  "\nspring,rod" springs rods
-			  "\ntopskip etc" topskip space
+			  "\ntopskip " topskip
+			  " space " space
 			  "\npage-height" page-height
 			  "\nragged" ragged?
-			  "\nforce" force 
+			  "\nforce" force
+			  "\nres" (cdr result)
 			  "\npositions" positions "\n"))))
      
      (cons force positions)))