Issue 2289: repeat percent with skips can crash

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 14faaff74800457df6ec68a1a2eeec4628cd9fd3..4586fbfb665dc120c3d5868f2863e2476b3e66f1 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -313,7 +313,8 @@ if durations in @var{music} vary, allowing slash beats and double-percent
 beats to be distinguished."
   (let* ((durs (map (lambda (elt)
                      (duration-of-note elt))
-                   (extract-named-music music '(EventChord NoteEvent))))
+                   (extract-named-music music '(EventChord NoteEvent
+                                                RestEvent SkipEvent))))
         (first-dur (car durs)))
 
     (if (every (lambda (d) (equal? d first-dur)) durs)