Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / coverage.scm

diff --git a/scm/coverage.scm b/scm/coverage.scm
index 5ca40f90299768c2c8923a62ca3827d927cc57ed..3c210555ae102bc2f67621e87610d8fa27441818 100644 (file)
--- a/scm/coverage.scm
+++ b/scm/coverage.scm
@@ -1,30 +1,31 @@
+;;;; coverage.scm
+
 (define-module (scm coverage))
 
 (use-modules (lily)
             (ice-9 rdelim)
             (ice-9 regex)
-            (ice-9 format))
+            (ice-9 format) ;; needed for ~8@ 
+            )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public (coverage:show-all filter?)
-  
+  (let*
+      ((keys
+       (filter filter?
+               (sort (map car (hash-table->alist coverage-table)) string<? ))))
+    
   (newline)
-  (hash-fold
-   (lambda (key val acc)
-     (if (filter? key)
-        (begin
-          (format #t
-                "
-Coverage for file: ~a
-"
-                key)
-        (display-coverage key val
-                          (format #f "~a.cov" (basename key))
-                          )))
-     #t)
-   #t
-   coverage-table))
+  (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)))
+
 
 (define-public (coverage:enable)
   (trap-set! memoize-symbol-handler record-coverage)