also include total-cells-allocated if supported.

diff --git a/scm/lily.scm b/scm/lily.scm
index d2b3ea95e7c79c2c9dd5f3138a7266e61e2043fe..2a93a3217dcf3434dcc06a2032e5d022e1680450 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -362,6 +362,7 @@ The syntax is the same as `define*-public'."
      (- (tms:utime t)
        (ly:assoc-get 'gc-time-taken stats))
 
+     (ly:assoc-get 'total-cells-allocated  stats 0)
      ;; difficult to put memory amount stats into here.
      
      )))
@@ -373,8 +374,10 @@ The syntax is the same as `define*-public'."
     
     (ly:progress "\nWriting timing to ~a..." outname)
     (format (open-file outname "w")
-           "time: ~a"
-           (car diff))))
+           "time: ~a\ncells: ~a\n"
+           (car diff)
+           (cadr diff)
+           )))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;