From c0f10793d318308c95986675cfe8b78d9c9b4e8c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 8 Jun 2007 00:22:01 -0300 Subject: [PATCH] count protections rather than protected object count This matches protected-objects in gc-stats output. --- scm/lily.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.39.5