+ SCM *proc = &children_list_;
+ while(gh_pair_p (*proc))
+ {
+ Music_iterator * i = unsmob_iterator (gh_car (*proc));
+ if (i->pending_moment () == until)
+ {
+ i->process (until);
+ }
+ if (!i->ok ())
+ {
+ i->quit ();
+ *proc = gh_cdr (*proc);
+ }
+ else
+ {
+ proc = SCM_CDRLOC(*proc);
+ }
+ }