silence spurious warning when there is one system on a page

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index d2d06b0331387bfc4d293c64027b373cb42b0260..264d38054871e015b83f2f0f6e5f09e99d24c1de 100644 (file)
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -214,7 +214,8 @@
                           (space-to-fill (page-maximum-space-to-fill
                                            page lines paper))
                           (spacing (space-systems space-to-fill lines ragged paper #f)))
-                     (if (or (not (car spacing)) (inf? (car spacing)))
+                     (if (and (> (length lines) 1)
+                              (or (not (car spacing)) (inf? (car spacing))))
                          (begin
                            (ly:warning (_ "Can't fit systems on page -- ignoring between-system-padding"))
                            (cdr (space-systems space-to-fill lines ragged paper #t)))