X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsystem.cc;h=fdcc2b133d1b056f78482087218aac7abbc559ff;hb=c744185dd668b6b4731f060ae82d10075182415b;hp=bc59dede88787e7d9e517d80473ae66c7164cd79;hpb=1be9b72e4f00f7273a8e5ff220b710a52f975344;p=lilypond.git

diff --git a/lily/system.cc b/lily/system.cc
index bc59dede88..fdcc2b133d 100644
--- a/lily/system.cc
+++ b/lily/system.cc
@@ -206,7 +206,7 @@ System::get_broken_system_grobs ()
   SCM ret = SCM_EOL;
   for (vsize i = 0; i < broken_intos_.size (); i++)
     ret = scm_cons (broken_intos_[i]->self_scm (), ret);
-  return scm_reverse (ret);
+  return scm_reverse_x (ret, SCM_EOL);
 }
 
 SCM
@@ -874,14 +874,12 @@ System::calc_pure_relevant_grobs (SCM smob)
 
           if (Item *it = dynamic_cast<Item *> (elts[i]))
             {
-              Direction d = LEFT;
-              do
+              for (LEFT_and_RIGHT (d))
                 {
                   Item *piece = it->find_prebroken_piece (d);
                   if (piece && to_boolean (scm_apply_1 (pure_relevant_p, piece->self_scm (), SCM_EOL)))
                     relevant_grobs.push_back (piece);
                 }
-              while (flip (&d) != LEFT);
             }
         }
     }