(ly:optimal-page-breaks): whoops. Thinko in

rod calculation.

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 5c2834b478216ed7e60c03d47c3e52576936a25e..63fbb355575e8a8f3414beb2126d140d50a3e7f6 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -293,9 +293,9 @@ is what have collected so far, and has ascending page numbers."
            (let*
                ((this-system-ext (vector-ref real-extents idx))
                 (next-system-ext (vector-ref real-extents (1+ idx)))
-                (distance (- (+ (car this-system-ext)
+                (distance (- (+ (cdr next-system-ext)
                                 fixed-dist)
-                             (cdr next-system-ext)
+                             (car this-system-ext)
                              ))
                 (entry (list idx (1+ idx) distance)))
              entry)))