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

diff --git a/ChangeLog b/ChangeLog
index d6b14869ae01793ff80092081ffdceb7f73c4bd9..ed29928e0dfb0e99a7cd98fe11b8aaee2be240c8 100644 (file)
--- 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 35876065618054dd18497d99a46cc6c77111f06b..5c2834b478216ed7e60c03d47c3e52576936a25e 100644 (file)
--- 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)))