-bool
-Unfolded_repeat_iterator::ok () const
-{
- return current_iter_p_ ;
-}
-
-Moment
-Unfolded_repeat_iterator::pending_moment () const
-{
- return done_mom_ + current_iter_p_->pending_moment ();
-}
-
-void
-Unfolded_repeat_iterator::construct_children ()
-{
- Repeated_music * mus =dynamic_cast<Repeated_music *> (music_l_);
-
- alternative_cons_ = (mus->alternatives ())
- ? mus->alternatives ()->music_list ()
- : SCM_EOL;
-
- for (SCM p = alternative_cons_; gh_pair_p (p); p = gh_cdr (p))
- alternative_count_i_ ++;
-
- if (mus->body ())
- {
- current_iter_p_ = get_iterator_p (mus->body ());
- do_main_b_ = true;
- }
- else if (gh_pair_p (alternative_cons_))
- {
- current_iter_p_ = get_iterator_p (unsmob_music (gh_car (alternative_cons_)));
- do_main_b_ = false;
- }
-}