From e167813da9f30b18d27b44313d1e87cc116493a4 Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 17 Sep 2009 22:53:24 +0100
Subject: [PATCH] Exclude headers/top-level markup when processing systems for
 clipping.

---
 scm/framework-ps.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index becf51d275..b920d06058 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -580,11 +580,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)
-- 
2.39.5