(construct-chord): process transposition

[lilypond.git] / ly / declarations-init.ly

diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index 1e2f355132b43b3672a2ee78765ba775a23a5a94..b95af192718632b1f83e2f9f2eb599abfeb38f3d 100644 (file)
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -45,7 +45,7 @@ melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
 
 % Do units first; must be done before any units are specified.
 \paper {
-    unit = "mm"
+    unit = "mm"  %% ugh: coupled to LilyPond C++ code.
     mm = 1.0
     in = 25.4
     pt = #(/  in 72.27)
@@ -130,4 +130,6 @@ partCombineListener = \paper {
 % reset default duration
 unusedEntry = \notes { c4 }
 
-#(define musicQuotes (make-hash-table)) 
+
+% must have size argument for GUILE 1.6 compat.
+#(define musicQuotes (make-hash-table 29))