- if (!ly_c_pair_p (accumulator_))
- accumulator_ = scm_cons (SCM_EOL, SCM_EOL);
- if (!ly_c_pair_p (ly_car (accumulator_)))
- {
- /*
- Need to store transposition for every moment; transposition changes during pieces.
- */
- scm_set_car_x (accumulator_, scm_cons (scm_cons (now_mom ().smobbed_copy (),
- get_property ("instrumentTransposition")),
- SCM_EOL));
- }