Pitch expected_pit (scm_to_int (check),
new_pit.get_notename (),
new_pit.get_alteration ());
- origin ()->warning (_f ("octave check failed; expected \"%s\", found: %s",
+ origin ()->warning (_f ("octave check failed; expected \"%s\", found: \"%s\"",
expected_pit.to_string (),
new_pit.to_string ()));
new_pit = expected_pit;
}
/*
-TODO: make transposition non-destructive
+ This mutates alist. Hence, make sure that it is not changed
*/
SCM
transpose_mutable (SCM alist, Pitch delta)
Pitch transposed = p->transposed (delta);
scm_set_cdr_x (entry, transposed.smobbed_copy ());
- if (abs (transposed.get_alteration ()) > DOUBLE_SHARP)
+ if (transposed.get_alteration ().abs () > Rational (1,1))
{
warning (_f ("transposition by %s makes alteration larger than double",
delta.to_string ()));
transpose_music_list (val, delta);
else if (prop == ly_symbol2scm ("pitch-alist") &&
scm_is_pair (val))
- entry = scm_cons (prop, ly_transpose_key_alist (val, delta.smobbed_copy ()));
+ entry = scm_cons (prop,
+ ly_transpose_key_alist (val, delta.smobbed_copy ()));
retval = scm_cons (entry, retval);
}