X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftie.cc;h=3f282071e77fe393bad531df74895ef3a97ef840;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=b4b5206386ae23a3236fa830514953cd8c4f2001;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/tie.cc b/lily/tie.cc
index b4b5206386..3f282071e7 100644
--- a/lily/tie.cc
+++ b/lily/tie.cc
@@ -28,11 +28,11 @@
 #include "warn.hh"
 
 
-bool
-Tie::less (Grob *const &s1,
-	   Grob *const &s2)
+int
+Tie::compare (Grob *const &s1,
+	      Grob *const &s2)
 {
-  return Tie::get_position (s1) < Tie::get_position (s2);
+  return sign (Tie::get_position (s1) - Tie::get_position (s2));
 }
 
 void
@@ -235,7 +235,7 @@ Tie::print (SCM smob)
 
   Bezier b;
   int i = 0;
-  for (SCM s = cp; scm_is_pair (s); s = scm_cdr (s))
+  for (SCM s = cp; s != SCM_EOL; s = scm_cdr (s))
     {
       b.control_[i] = ly_scm2offset (scm_car (s));
       i++;