X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fcommand-request.cc;h=f37c73825c450744dc96df79faed03f528d7e94d;hb=89bf299597169eeaa5ed7a215b6e808fa849c8cd;hp=d292d55027c5242b920d27ed7e0682b4cc067900;hpb=2007f11f76fb92b495ac33621539aa481873302a;p=lilypond.git

diff --git a/lily/command-request.cc b/lily/command-request.cc
index d292d55027..f37c73825c 100644
--- a/lily/command-request.cc
+++ b/lily/command-request.cc
@@ -44,7 +44,7 @@ bool
 Key_change_req::do_equal_b (Request const * req) const
 {
   Key_change_req const * k = dynamic_cast<Key_change_req const*> (req);
-  return k && scm_equal_p (get_mus_property ("pitch-alist"), k->get_mus_property ("pitch-alist"));
+  return k  && scm_equal_p (get_mus_property ("pitch-alist"), k->get_mus_property ("pitch-alist")) == SCM_BOOL_T;
 }
 
 
@@ -95,5 +95,5 @@ Mark_req::do_equal_b (Request const * r) const
 {
   Mark_req const * other = dynamic_cast<Mark_req const*> (r);
   return other && scm_equal_p (other->get_mus_property ("mark-label"),
-			       get_mus_property ("mark-label"));
+			       get_mus_property ("mark-label")) == SCM_BOOL_T;
 }