-
- /*
- UGH. primitive-eval.
- */
- SCM pitchlist = key_req_->get_mus_property ("pitch-alist");
- SCM proc = scm_primitive_eval (ly_symbol2scm ("accidentals-in-key"));
- SCM acc = gh_call1 (proc, pitchlist);
- proc = scm_primitive_eval (ly_symbol2scm ("major-key"));
-
- Pitch my_do (0,
- gh_scm2int (ly_caar (pitchlist)),
- gh_scm2int (ly_cdar (pitchlist)));
+ SCM pitchlist = key_req_->get_property ("pitch-alist");
+ SCM proc = ly_lily_module_constant ("alterations-in-key");
+
+ SCM acc = scm_call_1 (proc, pitchlist);
+
+ Pitch key_do (0,
+ scm_to_int (scm_caar (pitchlist)),
+ scm_to_int (scm_cdar (pitchlist)));
+
+ Pitch c_do (0, 0, 0);