release: 1.3.61

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 42b517f5d05ce5a42b44d8888f32d46bef3334b7..80e3ffeb6ae74ac8903a06ce9146444c95a2ec4f 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -136,6 +136,7 @@
    )
 )
 
+;; silly, use alist? 
 (define (find-notehead-symbol duration style)
   (case style
    ((cross) "2cross")
@@ -291,9 +292,12 @@
     (string-append "% " s))
   
   (define (end-output) 
+       (begin
+; uncomment for some stats about lily memory     
+;              (display (gc-stats))
     (string-append "\n\\EndLilyPondOutput"
                   ; Put GC stats here.
-                  ))
+                  )))
   
   (define (experimental-on)
     "")