Exclude headers/top-level markup when processing systems for clipping.

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c091a44f47759303f9d041e9b9db55ab7557166b..84f3a3bec82c553763ef3dd873627a6199bc3618 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-ps))
 
@@ -575,11 +575,13 @@ fonts inline."
      #f
      systems)
     (for-each (lambda (system-list)
+               ;; filter out headers and top-level markup
+               (if (pair? system-list)
                (clip-score-systems
                 (if (> count 0)
                     (format "~a-~a" basename count)
                     basename)
-                system-list))
+                system-list)))
              score-system-list)))
 
 (define-public (output-preview-framework basename book scopes fields)