* lily/modified-font-metric.cc (text_dimension): try

[lilypond.git] / lily / midi-item.cc

diff --git a/lily/midi-item.cc b/lily/midi-item.cc
index 064fdd2292deb1ff2986e00fc069e7a543410171..827e5c869fb38ca57bd0343f3173c9cc14b864ce 100644 (file)
--- a/lily/midi-item.cc
+++ b/lily/midi-item.cc
@@ -142,7 +142,7 @@ Midi_instrument::to_string () const
   /*
     UGH. don't use eval.
    */
-  SCM proc = ly_scheme_function ("midi-program");
+  SCM proc = ly_lily_module_constant ("midi-program");
   SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
   found = (program != SCM_BOOL_F);
   if (found)