-MAKE_SCHEME_CALLBACK (Separating_group_spanner,set_spacing_rods,1);
-SCM
-Separating_group_spanner::set_spacing_rods (SCM smob)
-{
- Grob*me = unsmob_grob (smob);
- Real padding = robust_scm2double (me->get_grob_property ("padding"), 0.1);
-
- for (SCM s = me->get_grob_property ("elements"); gh_pair_p (s) && gh_pair_p (ly_cdr (s)); s = ly_cdr (s))
+ extract_grob_set (me, "elements", elts);
+ for (vsize i = elts.size (); i-- > 1;)