#f
systems)
(for-each (lambda (system-list)
#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)
(clip-score-systems
(if (> count 0)
(format "~a-~a" basename count)
basename)
score-system-list)))
(define-public (output-preview-framework basename book scopes fields)
score-system-list)))
(define-public (output-preview-framework basename book scopes fields)