X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpercent-repeat-iterator.cc;h=5573dc7609b988b99667b51b3304cb78169b70e3;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=27481cf1ab1b3335fc469989f7723a4d1a0a2be9;hpb=8c5eca7a74b67bcaa08a0601f654d32e654a30e0;p=lilypond.git diff --git a/lily/percent-repeat-iterator.cc b/lily/percent-repeat-iterator.cc index 27481cf1ab..5573dc7609 100644 --- a/lily/percent-repeat-iterator.cc +++ b/lily/percent-repeat-iterator.cc @@ -3,14 +3,23 @@ source file of the GNU LilyPond music typesetter - (c) 2001--2006 Han-Wen Nienhuys + (c) 2001--2008 Han-Wen Nienhuys Erik Sandberg */ -#include "percent-repeat-iterator.hh" #include "input.hh" -#include "music.hh" #include "repeated-music.hh" +#include "sequential-iterator.hh" + +class Percent_repeat_iterator : public Sequential_iterator +{ +public: + DECLARE_CLASSNAME (Percent_repeat_iterator); + DECLARE_SCHEME_CALLBACK (constructor, ()); + Percent_repeat_iterator (); +protected: + virtual SCM get_music_list () const; +}; IMPLEMENT_CTOR_CALLBACK (Percent_repeat_iterator); @@ -35,8 +44,10 @@ Percent_repeat_iterator::get_music_list () const percent->set_property ("length", length); if (repeats > 1) percent->set_property ("repeat-count", scm_int2num (i)); + child_list = scm_cons (percent->unprotect (), child_list); } + child_list = scm_cons (child->self_scm (), child_list); return child_list;