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

(cherry picked from commit 7b513ca03c3e1c2e5ac0274f50b635cf2a9e1c56)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c183fb0de5a463616bafc262d107eceb3131c627..84f3a3bec82c553763ef3dd873627a6199bc3618 100644 (file)
--- 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)