}
else if (m->is_mus_type ("busy-playing-event"))
return events_.size ();
- else if (m->is_mus_type ("start-playing-event"))
- return events_.size ();
return false;
}
if (scm_hash_table_p (tab) == SCM_BOOL_T)
defn = scm_hashq_ref (tab, drum_type, SCM_EOL);
- if (ly_c_pair_p (defn))
+ if (scm_is_pair (defn))
{
- SCM pos = ly_caddr (defn);
- SCM style =ly_car (defn);
- SCM script = ly_cadr (defn);
+ SCM pos = scm_caddr (defn);
+ SCM style =scm_car (defn);
+ SCM script = scm_cadr (defn);
if (scm_integer_p (pos) == SCM_BOOL_T)
note->set_property ("staff-position", pos);
- if (ly_c_symbol_p (style))
+ if (scm_is_symbol (style))
note->set_property ("style", style);
- if (ly_c_string_p (script))
+ if (scm_is_string (script))
{
Item *p = make_item ("Script", ev->self_scm ());
bool follow;