From: David Kastrup <dak@gnu.org>
Date: Sat, 23 Jun 2012 08:41:23 +0000 (+0200)
Subject: Issue 2620: (ly:pitch<? #{ des #} #{ d #}) => #t
X-Git-Tag: release/2.15.41-1~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a2502d7c5352d4dd8e8d1be8a90f5b621e32d617;p=lilypond.git

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

diff --git a/lily/pitch.cc b/lily/pitch.cc
index dd82af2f63..b26076a008 100644
--- 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;
 }