]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/drum-note-performer.cc
* lily/context.cc (Context): take key argument in ctor.
[lilypond.git] / lily / drum-note-performer.cc
index 03ff0bf48d2faf9524d77383de4657ebd5cec835..e20d1da05d77851d655054acf6e2eff53e113b40 100644 (file)
@@ -39,7 +39,7 @@ Drum_note_performer::create_audio_elements ()
       SCM sym = n->get_property ("drum-type");
       SCM defn = SCM_EOL;
 
-      if (ly_c_symbol_p (sym)
+      if (scm_is_symbol (sym)
          &&  (scm_hash_table_p (tab) == SCM_BOOL_T))
        defn = scm_hashq_ref (tab, sym, SCM_EOL);