X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic.cc;h=ae75ff795273da024d404a76d144f10da52613bd;hb=c40332b19b2224385f4221ede8fc29e57bbc3b01;hp=8b9da5596d02d5d217c397bd2b47b9b1be5c346d;hpb=6786ba7b5cd73f94eec0a49fd68d0e6d9d283437;p=lilypond.git

diff --git a/lily/music.cc b/lily/music.cc
index 8b9da5596d..ae75ff7952 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -237,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);
     }
 }