- Spanner *tie = dynamic_cast<Spanner *> (unsmob_grob (scm_car (s)));
- Direction dir = LEFT;
- do
- {
- if (dir * tie->get_bound (dir)->get_column ()->get_rank ()
- > dir * me->get_bound (dir)->get_column ()->get_rank ())
- me->set_bound (dir, Tie::head (tie, dir));
- }
- while (flip (&dir) != LEFT);
+ Spanner *tie = unsmob<Spanner> (scm_car (s));
+ for (LEFT_and_RIGHT (dir))
+ {
+ if (dir * tie->get_bound (dir)->get_column ()->get_rank ()
+ > dir * me->get_bound (dir)->get_column ()->get_rank ())
+ me->set_bound (dir, Tie::head (tie, dir));
+ }