X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-ps.scm;h=84f3a3bec82c553763ef3dd873627a6199bc3618;hb=2e9a5ee154d49c0a754f908f024f5423a342ab8f;hp=c183fb0de5a463616bafc262d107eceb3131c627;hpb=0e5d83a9ceb4a143f83d22406d7eb816314ff9f7;p=lilypond.git

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c183fb0de5..84f3a3bec8 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -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)