-(define-public (coverage:show-all)
- (newline)
- (hash-fold
- (lambda (key val acc)
- (if (string-contains key "lilypond")
- (begin
- (format #t
- "
-Coverage for file: ~a
-"
- key)
- (display-coverage key val)))
- #t)
- #t
- coverage-table))
+(define-public (coverage:show-all filter?)
+ (let*
+ ((keys
+ (filter filter?
+ (sort (map car (hash-table->alist coverage-table)) string<? ))))
+
+ (newline)
+ (for-each
+ (lambda (k)
+
+ (format #t "Coverage for file: ~a\n" k)
+ (display-coverage
+ k (hash-ref coverage-table k)
+ (format #f "~a.cov" (basename k))))
+ keys)))
+