X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fkey-performer.cc;fp=lily%2Fkey-performer.cc;h=9bb8b11a48edcabdfbb3330ebb24d85a2f60bee0;hb=adaa7aecab8595596fc6505402b40a37a04716e6;hp=61e3592630577e782c5edc3478c177df7aa1b6bd;hpb=523fe57eb6be805b4184ff6b59ff5c85cd30351d;p=lilypond.git

diff --git a/lily/key-performer.cc b/lily/key-performer.cc
index 61e3592630..9bb8b11a48 100644
--- a/lily/key-performer.cc
+++ b/lily/key-performer.cc
@@ -66,8 +66,8 @@ Key_performer::process_music ()
       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);
@@ -96,5 +96,7 @@ Key_performer::listen_key_change (Stream_event *ev)
 }
 
 ADD_TRANSLATOR (Key_performer,
-		"", "",
-		"", "");
+		"",
+		"",
+		"",
+		"");