From 1af111654876e3fd89622a132f7c49d9482acf15 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 6 Feb 2012 10:53:37 +0100 Subject: [PATCH] Issue 2289: repeat percent with skips can crash --- scm/music-functions.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index 14faaff748..4586fbfb66 100644 --- 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) -- 2.39.5