also collect gc-stats output.

diff --git a/scm/lily.scm b/scm/lily.scm
index c7dbb06e0f5208ac3a99a8af8d0071a205902308..b947853471f010dadfc18949ee325b890d45efa7 100644 (file)
--- 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)))
+    
+    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;