source file of the GNU LilyPond music typesetter
- (c) 2002--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2002--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
-
#include "music.hh"
#include "sequential-iterator.hh"
#include "context.hh"
&& current_reps == SCM_EOL || scm_is_pair (current_reps))
{
current_reps = scm_cons (what, current_reps);
- where->internal_set_property (reps, current_reps);
+ where->set_property (reps, current_reps);
}
}
{
if (alt_count_)
{
- String repstr = to_string (rep_count_ - alt_count_ + done_count_) + ".";
+ string repstr = to_string (rep_count_ - alt_count_ + done_count_) + ".";
if (done_count_ > 1)
{
add_repeat_command (scm_list_n (ly_symbol2scm ("volta"), SCM_BOOL_F, SCM_UNDEFINED));
}
if (done_count_ == 1 && alt_count_ < rep_count_)
- {
- repstr = "1.--" + to_string (rep_count_ - alt_count_ + done_count_) + ".";
- }
+ repstr = "1.--" + to_string (rep_count_ - alt_count_ + done_count_) + ".";
if (done_count_ <= alt_count_)
add_repeat_command (scm_list_n (ly_symbol2scm ("volta"),
- scm_makfrom0str (repstr.to_str0 ()), SCM_UNDEFINED));
+ ly_string2scm (repstr), SCM_UNDEFINED));
}
else
- {
- add_repeat_command (ly_symbol2scm ("end-repeat"));
- }
+ add_repeat_command (ly_symbol2scm ("end-repeat"));
}
}