From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 8 Jun 2007 03:22:01 +0000 (-0300)
Subject: count protections rather than protected object count
X-Git-Tag: release/2.11.26-1~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c0f10793d318308c95986675cfe8b78d9c9b4e8c;p=lilypond.git

count protections rather than protected object count

This matches protected-objects in gc-stats output.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index cee1e74e80..e03eb489a1 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -453,9 +453,10 @@ The syntax is the same as `define*-public'."
      outfile)
 
     (format outfile "\nprotected symbols: ~a\n"
-	    (length (filter symbol?  (map car protects))))
-    
-	     
+	    (apply + (map (lambda (obj-count) (if (symbol? (car obj-count))
+						  (cdr obj-count)
+						  0))
+			     protects)))	     
 
     ;; (display (ly:smob-protects))
     (newline outfile)