/* Cancel any ongoing crescendo, either explicitly by \! or
implicitly by a new crescendo. Also avoid warning if cresc is
- cancelled both implicitly and explicitly. */
+ canceled both implicitly and explicitly. */
if ((d == STOP || current_cresc_ev_) && !accepted_spanevents_drul_[STOP])
ASSIGN_EVENT_ONCE (accepted_spanevents_drul_[STOP], ev);
}
TODO: Use symbols.
*/
- SCM start_sym = current_cresc_ev_->get_property ("class");
+ SCM start_sym = scm_car (current_cresc_ev_->get_property ("class"));
string start_type;
if (start_sym == ly_symbol2scm ("decrescendo-event"))