*** empty log message ***

[lilypond.git] / lily / forbid-break-engraver.cc

diff --git a/lily/forbid-break-engraver.cc b/lily/forbid-break-engraver.cc
index 492a35e4f79f560a2c4abaed2583ebd9a6fed405..207e30284908e9c5825ec886aa922c6816775e28 100644 (file)
--- a/lily/forbid-break-engraver.cc
+++ b/lily/forbid-break-engraver.cc
@@ -21,18 +21,18 @@ Forbid_line_break_engraver::start_translation_timestep ()
   SCM busy = get_property ("busyGrobs");
 
   Moment now = now_mom ();
-  while (ly_pair_p (busy) && unsmob_moment (ly_caar (busy))->main_part_ == now.main_part_)
-    busy = ly_cdr (busy);
+  while (scm_is_pair (busy) && unsmob_moment (scm_caar (busy))->main_part_ == now.main_part_)
+    busy = scm_cdr (busy);
 
   
-  while (ly_pair_p (busy))
+  while (scm_is_pair (busy))
     {
-      Grob *g = unsmob_grob (ly_cdar (busy));
+      Grob *g = unsmob_grob (scm_cdar (busy));
       if (Rhythmic_head::has_interface (g))
        {
          get_score_engraver ()->forbid_breaks ();
        }
-      busy = ly_cdr (busy);
+      busy = scm_cdr (busy);
     }
 }