Moment now = get_outlet ()->now_mom ();
Moment *splitm = 0;
- for (; is_pair (split_list_); split_list_ = ly_cdr (split_list_))
+ for (; ly_c_pair_p (split_list_); split_list_ = ly_cdr (split_list_))
{
splitm = unsmob_moment (ly_caar (split_list_));
if (splitm && *splitm + start_moment_ > now)
solo1 ();
else if (tag == ly_symbol2scm ("solo2"))
solo2 ();
- else if (is_symbol (tag))
+ else if (ly_c_symbol_p (tag))
{
String s = "Unknown split directive: "
- + (is_symbol (tag) ? ly_symbol2string (tag) : String ("not a symbol"));
+ + (ly_c_symbol_p (tag) ? ly_symbol2string (tag) : String ("not a symbol"));
programming_error (s);
}
}