From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 21 Jan 2007 14:31:04 +0000 (+0100)
Subject: remove debugging gobs.
X-Git-Tag: release/2.11.13-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=01a76c216ad3e8ea26c3fb91aa94306f69272b97;p=lilypond.git

remove debugging gobs.
---

diff --git a/scm/coverage.scm b/scm/coverage.scm
index a7a1b24552..aefef132f9 100644
--- 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"))