Issue 4410: Part_combine_iterator: treat child iterators as a set

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

diff --git a/lily/midi-item.cc b/lily/midi-item.cc
index b19527f5bfce7d05af94564d7f37fc8a8fe48e53..d85161676cc3943e42a669b56d88ba2e187c80c4 100644 (file)
--- a/lily/midi-item.cc
+++ b/lily/midi-item.cc
@@ -86,7 +86,7 @@ Midi_instrument::to_string () const
 
   SCM proc = ly_lily_module_constant ("midi-program");
   SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.c_str ()));
-  found = (program != SCM_BOOL_F);
+  found = (scm_is_true (program));
   if (found)
     program_byte = (Byte) scm_to_int (program);
   else