repeat tremolo: robust to zero-duration elements

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 611879ae8b517ec9bb23d3507d1cdd3b10af84b6..65f885bbf87e1a76921c7f3e8e98900e2b0c980c 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -285,8 +285,9 @@ depth-first through MUSIC."
          (body (ly:music-property tremolo 'element))
          (children (if (music-is-of-type? body 'sequential-music)
                        ;; \repeat tremolo n { ... }
-                       (length (extract-named-music body '(EventChord
-                                                           NoteEvent)))
+                       (count duration-of-note ; do not count empty <>
+                              (extract-named-music body
+                                                   '(EventChord NoteEvent)))
                        ;; \repeat tremolo n c4
                        1))
          (tremolo-type (if (positive? children)