X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic.cc;h=ae75ff795273da024d404a76d144f10da52613bd;hb=2fef7b7eb7ac5d7a2ed237bf22a6ec6fe5d946d9;hp=994d685ed2582e921bdd4519a0cf027b4d1c4099;hpb=74daefdc62920b729061cb8711b63890de1f0c17;p=lilypond.git

diff --git a/lily/music.cc b/lily/music.cc
index 994d685ed2..ae75ff7952 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -45,8 +45,7 @@ Music::internal_is_music_type (SCM k) const
   return scm_is_true (scm_c_memq (k, ifs));
 }
 
-void
-Music::pre_init ()
+Preinit_Music::Preinit_Music ()
 {
   length_callback_ = SCM_EOL;
   start_callback_ = SCM_EOL;
@@ -238,7 +237,7 @@ Prob::transpose (Pitch delta)
                && scm_is_pair (val))
         new_val = ly_transpose_key_alist (val, delta.smobbed_copy ());
 
-      if (val != new_val)
+      if (!scm_is_eq (val, new_val))
         scm_set_cdr_x (entry, new_val);
     }
 }