* po/fr.po: update

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index d73b883b515ce795d105364447f513409666000b..ee2caade6a7457eac4381003256fd88ccd40b53e 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -319,10 +319,14 @@ The syntax is the same as `define*-public'."
 
     (if (defined? 'gc-live-object-stats)
        (let*
-           ((dummy (gc))
-            (dummy2 (gc))
-            (stats (gc-live-object-stats))
-            )
+           ((stats #f))
+
+         (display "Live object statistics: GC'ing\n")
+         (gc)
+         (gc)
+
+         (set! stats (gc-live-object-stats))
+         (display "Dumping live object statistics.\n")
 
          (for-each
           (lambda (x)