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.
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
"\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)))