- Moment now = now_mom();
-
- current_grobs_.sort (&compare);
- SCM current_list = SCM_EOL;
- for (int i = current_grobs_.size(); i--;)
- current_list = scm_cons (scm_cons (current_grobs_[i].end_.smobbed_copy(),
- current_grobs_[i].grob_->self_scm ()), current_list);
-
- /*
- We generate some garbage here.
- */
- SCM busy = get_property ("busyGrobs");
- while (gh_pair_p (busy) && *unsmob_moment (gh_caar (busy)) == now)
+ Moment now = now_mom ();
+ SCM start_busy = get_property ("busyGrobs");
+ SCM busy = start_busy;
+ while (scm_is_pair (busy) && *unsmob_moment (scm_caar (busy)) == now)