Script_column::add_staff_sided (Grob *me, Item *i)
{
SCM p = i->get_property ("script-priority");
- if (!ly_number_p (p))
+ if (!is_number (p))
return;
Pointer_group_interface::add_grob (me, ly_symbol2scm ("scripts"),i);
Drul_array<SCM> scripts (SCM_EOL, SCM_EOL);
Link_array<Grob> staff_sided;
- for (SCM s = me->get_property ("scripts"); ly_pair_p (s); s = ly_cdr (s))
+ for (SCM s = me->get_property ("scripts"); is_pair (s); s = ly_cdr (s))
{
Grob *sc = unsmob_grob (ly_car (s));
ss = scm_stable_sort_x (ss, grob_script_priority_less_proc);
Grob * last = 0;
- for (SCM s = ss; ly_pair_p (s); s = ly_cdr (s))
+ for (SCM s = ss; is_pair (s); s = ly_cdr (s))
{
Grob *g = unsmob_grob (ly_car (s));
if (last)