X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fdrum-note-performer.cc;h=03ff0bf48d2faf9524d77383de4657ebd5cec835;hb=978cbc12a1c129652e81d0d69eac52f39b59628b;hp=e5888fcfbcfef34e1e65f464949c0d610518b7b5;hpb=947454c5cc430a9627262de4f25274a64789d3c2;p=lilypond.git diff --git a/lily/drum-note-performer.cc b/lily/drum-note-performer.cc index e5888fcfbc..03ff0bf48d 100644 --- a/lily/drum-note-performer.cc +++ b/lily/drum-note-performer.cc @@ -39,7 +39,7 @@ Drum_note_performer::create_audio_elements () SCM sym = n->get_property ("drum-type"); SCM defn = SCM_EOL; - if (gh_symbol_p (sym) + if (ly_c_symbol_p (sym) && (scm_hash_table_p (tab) == SCM_BOOL_T)) defn = scm_hashq_ref (tab, sym, SCM_EOL);