Issue 2620: (ly:pitch<? #{ des #} #{ d #}) => #t

diff --git a/lily/pitch.cc b/lily/pitch.cc
index dd82af2f63453bb5f9a65632d5bb0c176bf3fd0c..b26076a0083c88efcb48ee476e2e2efe7526dc38 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -57,7 +57,7 @@ Pitch::compare (Pitch const &m1, Pitch const &m2)
   if (n)
     return n;
   if (a)
-    return a > (Rational)0;
+    return a > (Rational)0 ? 1 : -1;
 
   return 0;
 }