From 4bc9c027d4b4c311ba148fdf8b1058fc9c025a03 Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Sun, 22 Jul 2007 11:38:42 +0200 Subject: [PATCH] Vertical spacing, inter system space limitation: (page-space-left) should always return a number. --- scm/layout-page-layout.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm index 1c18751edc..68cc9d49c8 100644 --- a/scm/layout-page-layout.scm +++ b/scm/layout-page-layout.scm @@ -245,9 +245,7 @@ (if prev-line prev-position 0.0))) (bottom-position (- position (interval-start (line-extent line))))) - (and (or (not prev-line) - (< bottom-position (page-printable-height page))) - position))) + position)) (define (page-maximum-space-to-fill page lines paper) "Return the space between the first line top position and the last line @@ -271,7 +269,7 @@ (position (line-position-on-page line prev-line prev-position page relative-positionning-fn))) (if (null? (cdr lines)) - (and position + (max 0 (- (page-printable-height page) (- position (interval-start (line-extent line))))) -- 2.39.5