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

diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index 115902e89d..a61d7701d7 100644
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -56,7 +56,8 @@ Key_engraver::finalize ()
 {
 }
 
-Key_engraver::Key_engraver ()
+Key_engraver::Key_engraver (Context *c)
+  : Engraver (c)
 {
   key_event_ = 0;
   item_ = 0;
@@ -147,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);
 }