SCM melisma_properties = tr->get_property ("melismaBusyProperties");
bool busy = false;
- for (; is_pair (melisma_properties);
- melisma_properties = ly_cdr (melisma_properties))
- busy = busy || to_boolean (tr->internal_get_property (ly_car (melisma_properties)));
+ for (; scm_is_pair (melisma_properties);
+ melisma_properties = scm_cdr (melisma_properties))
+ busy = busy || to_boolean (tr->internal_get_property (scm_car (melisma_properties)));
return busy;
}
SCM grobs = tr->get_property ("busyGrobs");
Moment now = tr->now_mom ();
- for (; is_pair (grobs); grobs = ly_cdr (grobs))
+ for (; scm_is_pair (grobs); grobs = scm_cdr (grobs))
{
- SCM grob = ly_cdar (grobs);
- Moment end =*unsmob_moment (ly_caar (grobs));
+ SCM grob = scm_cdar (grobs);
+ Moment end =*unsmob_moment (scm_caar (grobs));
/*