X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Funfolded-repeat-iterator.cc;h=976861fa8bb16eea9b05c36b40e7d69e5a6b6d1e;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=46a8bfd0475b369559eb2191efa29f124c0ca98f;hpb=87eedcd59f4082cb0841528ad5bc82cb1d1191e3;p=lilypond.git diff --git a/lily/unfolded-repeat-iterator.cc b/lily/unfolded-repeat-iterator.cc index 46a8bfd047..976861fa8b 100644 --- a/lily/unfolded-repeat-iterator.cc +++ b/lily/unfolded-repeat-iterator.cc @@ -1,9 +1,20 @@ /* - unfolded-repeat-iterator.cc -- implement Unfolded_repeat_iterator + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2002--2015 Han-Wen Nienhuys - (c) 2002--2007 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ #include "music.hh" @@ -31,19 +42,19 @@ Unfolded_repeat_iterator::get_music_list () const for (int i = 0; i < rep_count; i++) { - if (unsmob_music (body)) - *tail = scm_cons (body, SCM_EOL); + if (Music::is_smob (body)) + *tail = scm_cons (body, SCM_EOL); tail = SCM_CDRLOC (*tail); if (alt_count) - { - *tail = scm_cons (scm_car (alts), SCM_EOL); - tail = SCM_CDRLOC (*tail); - if (i >= rep_count - alt_count) + { + *tail = scm_cons (scm_car (alts), SCM_EOL); + tail = SCM_CDRLOC (*tail); + if (i >= rep_count - alt_count) - alts = scm_cdr (alts); - } + alts = scm_cdr (alts); + } } return l;