* scm/output-svg.scm:

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

diff --git a/lily/forbid-break-engraver.cc b/lily/forbid-break-engraver.cc
index a7bf47b2df2924dc84165092c3b2df49ce91f6be..9bbf42e3942bfced04cede289570059e07f83be6 100644 (file)
--- 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 (gh_pair_p (busy) && unsmob_moment (gh_caar (busy))->main_part_ == now.main_part_)
-    busy = gh_cdr (busy);
+  while (scm_is_pair (busy) && unsmob_moment (scm_caar (busy))->main_part_ == now.main_part_)
+    busy = scm_cdr (busy);
 
   
-  while (gh_pair_p (busy))
+  while (scm_is_pair (busy))
     {
-      Grob *g = unsmob_grob (gh_cdar (busy));
+      Grob *g = unsmob_grob (scm_cdar (busy));
       if (Rhythmic_head::has_interface (g))
        {
          get_score_engraver ()->forbid_breaks ();
        }
-      busy = gh_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 */     "",