- Grob* me = unsmob_grob (smob);
- Drul_array<SCM> scripts (SCM_EOL, SCM_EOL);
- Link_array<Grob> staff_sided;
-
- for (SCM s = me->get_property ("scripts"); gh_pair_p (s); s = gh_cdr (s))
+ Grob *me = unsmob_grob (smob);
+ Drul_array<SCM> scripts_drul (SCM_EOL, SCM_EOL);
+ vector<Grob*> staff_sided;
+
+ extract_grob_set (me, "scripts", scripts);
+ for (vsize i = 0; i < scripts.size (); i++)