- do {
- SCM ss = scm_reverse_x (scripts[d], SCM_EOL);
- ss = scm_stable_sort_x (ss, grob_script_priority_less_proc);
-
- Grob * last = 0;
- for (SCM s = ss; gh_pair_p (s); s = gh_cdr (s))
- {
- Grob* g = unsmob_grob (gh_car (s));
- if (last)
- Side_position_interface::add_support (g,last);
-
- last = g;
- }
-
- } while (flip (&d) != DOWN);
-
- return SCM_UNSPECIFIED;
-}
+ do
+ {
+ SCM ss = scm_reverse_x (scripts_drul[d], SCM_EOL);
+ ss = scm_stable_sort_x (ss, ly_grob_script_priority_less_proc);