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

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index ebe0cc322428cfabde38ecd652abd0cfbd23131d..183b71e4902b1f46d9ec2ddd68a81fc2e2343f20 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -629,7 +629,8 @@ The syntax is the same as `define*-public'."
     (if (ly:get-option 'trace-scheme-coverage)
        (begin
          (coverage:disable)
-         (coverage:show-all)))
+         (coverage:show-all (lambda (f) (string-contains f "lilypond"))
+                            )))
          
     
     (if (pair? failed)