* 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 48aaf90e6243b53f27999350464de65e837a7194..776439b894fd72e822fb9d7778fa646c04681e28 100644 (file)
--- 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)