Web: remove non-Free software from Easier Editing

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index bb8f4ddf50d96c80bdece61ebb473d1d36604396..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))
 
@@ -369,7 +369,6 @@ and duration-log @var{log}."
     ("||:" . ("||" . "|:"))
     ("dashed" . ("dashed" . '()))
     ("|" . ("|" . ()))
-    ("||:" . ("||" . "|:"))
     ("|s" . (() . "|"))
     ("|:" . ("|" . "|:"))
     ("|." . ("|." . ()))
@@ -900,7 +899,7 @@ and duration-log @var{log}."
 ;; dynamics
 
 (define-public (hairpin::calc-grow-direction grob)
-  (if (eq? (ly:event-property (event-cause grob) 'class) 'decrescendo-event)
+  (if (ly:in-event-class? (event-cause grob) 'decrescendo-event)
       START
       STOP))