#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)