Pitch key_do (0,
scm_to_int (scm_caar (pitchlist)),
- scm_to_int (scm_cdar (pitchlist)));
+ ly_scm2rational (scm_cdar (pitchlist)));
Pitch c_do (0, 0, 0);
SCM third = scm_assoc (scm_from_int (2),
c_pitchlist);
bool minor = (scm_is_pair (third)
- && scm_is_integer (scm_cdr (third))
- && scm_to_int (scm_cdr (third)) == FLAT);
+ && scm_is_number (scm_cdr (third))
+ && ly_scm2rational (scm_cdr (third)) == FLAT_ALTERATION);
audio_ = new Audio_key (scm_to_int (acc),
!minor);
}
ADD_TRANSLATOR (Key_performer,
- "", "",
- "", "");
+ "",
+ "",
+ "",
+ "");