From 01a76c216ad3e8ea26c3fb91aa94306f69272b97 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 21 Jan 2007 15:31:04 +0100 Subject: [PATCH] remove debugging gobs. --- scm/coverage.scm | 5 ----- 1 file changed, 5 deletions(-) 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")) -- 2.39.5