X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fforbid-break-engraver.cc;h=9bbf42e3942bfced04cede289570059e07f83be6;hb=2a334fabd98bb8aaab153b83f2cd5f37faaf238a;hp=492a35e4f79f560a2c4abaed2583ebd9a6fed405;hpb=94a1966c72301b8bd1d8bb3b8628c3f089d007cf;p=lilypond.git

diff --git a/lily/forbid-break-engraver.cc b/lily/forbid-break-engraver.cc
index 492a35e4f7..9bbf42e394 100644
--- a/lily/forbid-break-engraver.cc
+++ b/lily/forbid-break-engraver.cc
@@ -1,5 +1,4 @@
 #include "rhythmic-head.hh"
-#include "engraver.hh"
 #include "grob.hh"
 #include "score-engraver.hh"
 
@@ -21,23 +20,23 @@ 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);
     }
 }
 
 
-ENTER_DESCRIPTION (Forbid_line_break_engraver,
+ADD_TRANSLATOR (Forbid_line_break_engraver,
 /* descr */       "Forbid line breaks when note heads are still playing at some point.",
 /* creats*/       "",
 /* accepts */     "",