X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fevent.cc;h=c52a0701afe747daed22b6a9620759b9c50656e8;hb=e7020dbb36a9e9c10bda48e5197213e8a3bacef6;hp=7a1b9c6a7b2b4f257b74a3931b145d1f92f3bc99;hpb=27e25c36e3788771b54f591e40c48ec13a7337dc;p=lilypond.git

diff --git a/lily/event.cc b/lily/event.cc
index 7a1b9c6a7b..c52a0701af 100644
--- a/lily/event.cc
+++ b/lily/event.cc
@@ -195,7 +195,7 @@ alist_equal_p (SCM a, SCM b)
       SCM l = scm_assoc (key, b);
 
       if (l == SCM_BOOL_F
-	  || !is_equal ( ly_cdr (l), val))
+	  || !ly_c_equal_p ( ly_cdr (l), val))
 
 	return false;
     }