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