From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Sun, 22 Jul 2007 09:38:42 +0000 (+0200)
Subject: Vertical spacing, inter system space limitation:
X-Git-Tag: release/2.11.29-1~40^2~3^2~2^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4bc9c027d4b4c311ba148fdf8b1058fc9c025a03;p=lilypond.git

Vertical spacing, inter system space limitation:
(page-space-left) should always return a number.
---

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)))))