From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 23 Jan 2007 02:59:49 +0000 (+0100)
Subject: sort coverage output.
X-Git-Tag: release/2.11.14-1~59
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a7b1172da21d1401d3a055a00a7aa088fbab3710;p=lilypond.git

sort coverage output.
---

diff --git a/scm/coverage.scm b/scm/coverage.scm
index 5ca40f9029..7b1dfc810d 100644
--- a/scm/coverage.scm
+++ b/scm/coverage.scm
@@ -8,23 +8,21 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (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)