release: 1.3.61

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index b9d5c1020d9ffffc742a9f250d4a561956305cb5..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)
     "")
@@ -951,3 +955,15 @@
      )
    )
      
+
+(define major-scale
+  '(
+    (0 . 0)
+    (1 . 0)
+    (2 . 0)
+    (3 . 0)
+    (4 . 0)
+    (5 . 0)
+    (6 . 0)
+    )
+  )