Issue 3008: articulate can't deal with <>

diff --git a/ly/articulate.ly b/ly/articulate.ly
index 4f748f35b9b89da20c00ee4c64753aa87839fca1..a11b55e60cda5a21c5c251b3edb2cc45f7d1dc45 100644 (file)
--- a/ly/articulate.ly
+++ b/ly/articulate.ly
@@ -376,6 +376,9 @@
     (begin
      (set! (ly:music-property music 'elements) (reverse newelements))
      (cond
+      ((not (any (lambda (m) (music-is-of-type? m 'rhythmic-event))
+                newelements))
+       actions)
       (ac:inTrill (cons 'trill actions))
       ((and (eq? factor ac:normalFactor) (or ac:inSlur ac:inPhrasingSlur))
        (append actions (list 'articulation  '(1 . 1)) ))
@@ -468,7 +471,7 @@
     ((eq? 'EventChord (ly:music-property music 'name))
      (let loop ((actions (ac:getactions music)))
       (if (null? actions)
-       (if (ly:moment> (ly:music-length music) (make-moment 1 4))
+       (if (ly:moment<? (ly:make-moment 1/4) (ly:music-length music))
         (ac:to128  music)
         music)