* python/rational.py: python 2.3 compat.

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a6e60d48c9104a9e6f76a09cf8896444316d59fa..8cb006d70ae48952f60003be88fedd092647519d 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -495,11 +495,10 @@
 
     ;; skip booktitles.
     (if (and
-        (not
-         (ly:get-option 'preview-include-book-title))
-        (< 1 (length systems))
-        (paper-system-title? (list-ref systems 0))
-        (paper-system-title? (list-ref systems 1)))
+        (not (ly:get-option 'preview-include-book-title))
+        (pair? systems)
+        (ly:paper-system-property (car systems) 'is-book-title #f))
+
        (set! systems (cdr systems)))
 
     (for-each