- SCM inversion = me-> get_elt_property ("inversion");
- if (inversion == SCM_EOL)
- inversion = SCM_BOOL_F;
-
- SCM bass = me->get_elt_property ("bass");
- if (bass == SCM_EOL)
- bass = SCM_BOOL_F;
-
- SCM pitches = me->get_elt_property ("pitches");
- SCM func = me->get_elt_property (ly_symbol2scm ("chord-name-function"));
- SCM text = gh_call3 (func, style, pitches, gh_cons (inversion, bass));
+ SCM chord = me->get_grob_property ("chord");
+ SCM func = me->get_grob_property ("chord-name-function");
+ SCM text = gh_call2 (func, style, chord);