]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/midi-item.cc
*** empty log message ***
[lilypond.git] / lily / midi-item.cc
index ab66dc789328f89542cbc3ce470a802a8438f653..a04209ad53815fbcf45931c6be99979ff8ea0bf7 100644 (file)
@@ -148,7 +148,7 @@ Midi_instrument::to_string () const
   SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
   found = (program != SCM_BOOL_F);
   if (found)
-    program_byte = ly_scm2int (program);
+    program_byte = scm_to_int (program);
   else
       warning (_f ("no such MIDI instrument: `%s'", audio_->str_.to_str0 ()));