From 96220e9e2de22d9bef5b9362f349f4d125d4e879 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 2 Dec 2006 16:27:52 +0100
Subject: [PATCH] also collect gc-stats output.

---
 scm/lily.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/scm/lily.scm b/scm/lily.scm
index c7dbb06e0f..b947853471 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -399,7 +399,24 @@ The syntax is the same as `define*-public'."
 	     (format outfile "~a: ~a\n" (car x) (cdr x)))
 	   (sort (gc-live-object-stats)
 		 (lambda (x y)
-		   (string<? (car x) (car y)))))))))
+		   (string<? (car x) (car y)))))))
+
+
+    (newline outfile)
+    (let*
+	((stats (gc-stats)))
+      
+      (for-each
+       (lambda (sym)
+	 (display
+	  (format "~a ~a ~a\n"
+		  gc-protect-stat-count
+		  sym
+		  (cdr (assoc sym stats)))
+	  outfile))
+       '(protected-objects bytes-malloced cell-heap-size)))
+    
+    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-- 
2.39.5