+ context ()->set_property ("busyGrobs", SCM_EOL);
+}
+
+LY_DEFINE (ly_grob_pq_less_p, "ly:grob-pq<?",
+ 2, 0, 0, (SCM a, SCM b),
+ "Compare two grob priority queue entries."
+ " This is an internal function.")
+{
+ if (Moment::compare (*unsmob_moment (scm_car (a)),
+ *unsmob_moment (scm_car (b))) < 0)
+ return SCM_BOOL_T;
+ else
+ return SCM_BOOL_F;