From: David Kastrup <dak@gnu.org>
Date: Sat, 16 Jun 2012 15:45:03 +0000 (+0200)
Subject: Issue 2601: \repeat tremolo 9 {…} should issue an error
X-Git-Tag: release/2.15.41-1~36
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eaa965443539dd9e3e537e7f533526208367412e;p=lilypond.git

Issue 2601: \repeat tremolo 9 {…} should issue an error
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 559eae3c3f..edf7659748 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -299,8 +299,10 @@ through MUSIC."
 				 1))
 	       (tremolo-type (ash 1 duration-log)))
 	  (set! (ly:music-property r 'tremolo-type) tremolo-type)
-	  (if (not (integer?  mult))
-              (ly:warning (_ "invalid tremolo repeat count: ~a") times))
+	  (if (not (and (integer? mult) (= (logcount mult) 1)))
+	      (ly:music-warning
+	       main
+	       (ly:format (_ "invalid tremolo repeat count: ~a") times)))
 	  ;; Adjust the time of the notes
 	  (ly:music-compress r (ly:make-moment 1 children))
 	  ;; Adjust the displayed note durations