From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 6 Sep 2004 18:42:45 +0000 (+0000)
Subject: (ly:optimal-page-breaks): whoops. Thinko in
X-Git-Tag: release/2.3.15~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f2a7907ffbdaf637c8907e80dfd1f7c63428aad7;p=lilypond.git

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

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 5c2834b478..63fbb35557 100644
--- 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)))