From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 3 Jan 2007 15:31:47 +0000 (+0100)
Subject: really uncomment cellcount.
X-Git-Tag: release/2.11.8-1~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1a49ac1c51f0397e873c32c0419b4f00b57bd89d;p=lilypond.git

really uncomment cellcount.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index 33f3c9014c..55fdd0eeb3 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -369,9 +369,9 @@ The syntax is the same as `define*-public'."
     (list
      (- (tms:utime t)
 	(ly:assoc-get 'gc-time-taken stats))
-
+     
      ;; unreliable...
-     ;;(ly:assoc-get 'total-cells-allocated  stats 0)
+     ;; (ly:assoc-get 'total-cells-allocated  stats 0)
      ;; difficult to put memory amount stats into here.
      
      )))
@@ -383,9 +383,10 @@ The syntax is the same as `define*-public'."
     
     (ly:progress "\nWriting timing to ~a..." outname)
     (format (open-file outname "w")
-	    "time: ~a\ncells: ~a\n"
+;	    "time: ~a\ncells: ~a\n"
+	    "time: ~a\n"
 	    (car diff)
-	    (cadr diff)
+;	    (cadr diff)
 	    )))