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 cee1e74e800423d72e25d75e1985556638e09c38..e03eb489a140fc8070c906822572bd67cc3487e7 100644 (file)
--- 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)