remove debugging gobs.

diff --git a/scm/coverage.scm b/scm/coverage.scm
index a7a1b2455278121023060245958b63e16f81e399..aefef132f99cdf43fe8cba742d2b28c1d113c5c1 100644 (file)
--- a/scm/coverage.scm
+++ b/scm/coverage.scm
@@ -60,15 +60,10 @@ Coverage for file: ~a
                       (cond
                        ((and (< i (vector-length vec)) (vector-ref vec i)) "1")
                        ((and (string-contains file ".ly") (string-match "^[ \t]*%.*$" (car l)))
-
                         "-")
                        ((string-match  "^[ \t]*[()'`,]*$" (car l))
-
                         "-")
                        ((string-match  "^[ \t]*;.*$" (car l))
-                        (format (current-output-port) "~a l=~a, m=~a\n"
-                                i
-                                (car l) (string-match  "^[ \t]*;.*$"  (car l)))
 
                         "-")
                        (else "0"))