* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

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

diff --git a/lily/midi-item.cc b/lily/midi-item.cc
index 1fd33773adf9123177d1eaa25bffb9186e8b3e53..ab66dc789328f89542cbc3ce470a802a8438f653 100644 (file)
--- a/lily/midi-item.cc
+++ b/lily/midi-item.cc
@@ -145,10 +145,10 @@ Midi_instrument::to_string () const
     UGH. don't use eval.
    */
   SCM proc = ly_scheme_function ("midi-program");
-  SCM program = gh_call1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
+  SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
   found = (program != SCM_BOOL_F);
   if (found)
-    program_byte = gh_scm2int (program);
+    program_byte = ly_scm2int (program);
   else
       warning (_f ("no such MIDI instrument: `%s'", audio_->str_.to_str0 ()));