From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 11 Jun 2004 16:57:33 +0000 (+0000)
Subject: * scm/page-breaking.scm (ly:optimal-page-breaks): don't do
X-Git-Tag: release/2.3.4~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=995d0fe566ee314cf3b3286c24d3abfe8c9c822a;p=lilypond.git

* scm/page-breaking.scm (ly:optimal-page-breaks): don't do
negative penalties.
cleanups.

* scm/page-breaking.scm (ly:optimal-page-breaks): new
file. Rewrite function.
---

diff --git a/scm/page-breaking.scm b/scm/page-breaking.scm
index 48aaf90e62..776439b894 100644
--- a/scm/page-breaking.scm
+++ b/scm/page-breaking.scm
@@ -19,7 +19,6 @@
   (prev #:init-value '() #:accessor node-prev #:init-keyword #:prev)
   (page #:init-value 0 #:accessor node-page-number #:init-keyword #:pageno)
   (penalty #:init-value 0 #:accessor node-penalty #:init-keyword #:penalty)
-  (height #:init-value 0 #:accessor node-height #:init-keyword #:height)
   (lines #:init-value 0 #:accessor node-lines #:init-keyword #:lines))
 
 (define-method (display (node <optimally-broken-page-node>) port)