- 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"); scm_is_pair (s); s = scm_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++)