*** empty log message ***

[lilypond.git] / lily / grob-pq-engraver.cc

diff --git a/lily/grob-pq-engraver.cc b/lily/grob-pq-engraver.cc
index c0f97f1d45c5e44bec31d149ad73c505ecd28b66..910a1332662c03f64fbfa76ddb67b3a052554c58 100644 (file)
--- a/lily/grob-pq-engraver.cc
+++ b/lily/grob-pq-engraver.cc
@@ -37,8 +37,8 @@ LY_DEFINE (ly_grob_pq_less_p, "ly:grob-pq-less?",
          2, 0 ,0, (SCM a, SCM b), 
          "Compare 2 grob priority queue entries. Internal")
 {
-  if (Moment::compare (*unsmob_moment (ly_car (a)),
-                      *unsmob_moment (ly_car (b))) < 0)
+  if (Moment::compare (*unsmob_moment (scm_car (a)),
+                      *unsmob_moment (scm_car (b))) < 0)
     return SCM_BOOL_T;
   else
     return SCM_BOOL_F;
@@ -69,7 +69,7 @@ Grob_pq_engraver::acknowledge_grob (Grob_info gi)
                         gi.grob_->self_scm (),
                         SCM_EOL);
 
-      SCM busy= get_property ("busyGrobs");
+      SCM busy = get_property ("busyGrobs");
       busy = scm_merge_x (lst, busy, ly_grob_pq_less_p_proc);
       context ()->set_property ("busyGrobs", busy);
     }
@@ -82,9 +82,9 @@ Grob_pq_engraver::stop_translation_timestep ()
   Moment now = now_mom ();
   SCM start_busy = get_property ("busyGrobs");
   SCM busy = start_busy;
-  while (ly_c_pair_p (busy) && *unsmob_moment (ly_caar (busy)) == now)
+  while (scm_is_pair (busy) && *unsmob_moment (scm_caar (busy)) == now)
     {
-      busy = ly_cdr (busy);
+      busy = scm_cdr (busy);
     }
 
   if (start_busy != busy)
@@ -98,13 +98,13 @@ Grob_pq_engraver::start_translation_timestep ()
 
   SCM start_busy = get_property ("busyGrobs");
   SCM busy = start_busy;
-  while (ly_c_pair_p (busy) && *unsmob_moment (ly_caar (busy)) < now)
+  while (scm_is_pair (busy) && *unsmob_moment (scm_caar (busy)) < now)
     {
       /*
        The grob-pq-engraver is not water tight, and stuff like
        tupletSpannerDuration confuses it.
        */
-      busy = ly_cdr (busy);
+      busy = scm_cdr (busy);
     }
 
   if (start_busy != busy)
@@ -112,7 +112,7 @@ Grob_pq_engraver::start_translation_timestep ()
 }
 
 
-ENTER_DESCRIPTION (Grob_pq_engraver,
+ADD_TRANSLATOR (Grob_pq_engraver,
 
 /* descr */       "Administrate when certain grobs (eg. note heads) stop playing; this \
 engraver is a sort-of a failure, since it doesn't handle all sorts of \