(page-space-left) should always return a number.
(if prev-line prev-position 0.0)))
(bottom-position (- position
(interval-start (line-extent line)))))
(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)))
(define (page-maximum-space-to-fill page lines paper)
"Return the space between the first line top position and the last line
(define (page-maximum-space-to-fill page lines paper)
"Return the space between the first line top position and the last line
(position (line-position-on-page
line prev-line prev-position page relative-positionning-fn)))
(if (null? (cdr lines))
(position (line-position-on-page
line prev-line prev-position page relative-positionning-fn)))
(if (null? (cdr lines))
(- (page-printable-height page)
(- position
(interval-start (line-extent line)))))
(- (page-printable-height page)
(- position
(interval-start (line-extent line)))))