]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/command-request.cc
release: 1.3.30
[lilypond.git] / lily / command-request.cc
index e73c253d8914045aa3bd400ee92128e2444c412b..58f4d434d03c28bfffe80a78f364c063a8c1a1a4 100644 (file)
@@ -123,17 +123,12 @@ Break_req::Break_req ()
 }
 
 
-void
-Mark_req::do_print () const
-{
-  DEBUG_OUT << str_;
-}
 
 bool
 Mark_req::do_equal_b (Request const * r) const
 {
   Mark_req const * other = dynamic_cast<Mark_req const*> (r);
-  return other && other->str_ == str_;
+  return other && scm_equal_p (other->mark_label_,  mark_label_);
 }
 
 void