X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fkey-engraver.cc;h=a61d7701d768dbb4c28246ac72743c3d7265303a;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=f54421cf255081c91b8baaa7cc6d9d503758c70a;hpb=6d1c5d25389afa6dbbfb4722df3732e764cbbf2e;p=lilypond.git

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index f54421cf25..a61d7701d7 100644
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -148,7 +148,8 @@ void
 Key_engraver::process_music ()
 {
   if (key_event_
-      || get_property ("lastKeyAlterations") != get_property ("keyAlterations"))
+      || !scm_is_eq (get_property ("lastKeyAlterations"),
+                     get_property ("keyAlterations")))
     create_key (false);
 }