Fix polarity of rhythmic-location>=?

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 800d0f34323a561d0049f8bda6e180ec7571b78c..01e429cd195594cae2e3fcd202f3148bffdc7364 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -316,7 +316,7 @@ and duration-log @var{log}."
 (define-public (rhythmic-location<=? a b)
   (not (rhythmic-location<? b a)))
 (define-public (rhythmic-location>=? a b)
-  (rhythmic-location<? a b))
+  (not (rhythmic-location<? a b)))
 (define-public (rhythmic-location>? a b)
   (rhythmic-location<? b a))