summaryrefslogtreecommitdiff
path: root/ly/music-functions-init.ly
diff options
context:
space:
mode:
Diffstat (limited to 'ly/music-functions-init.ly')
-rw-r--r--ly/music-functions-init.ly7
1 files changed, 6 insertions, 1 deletions
diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index ee9fdb8c20..76c2ec64b8 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1551,7 +1551,12 @@ retrograde =
#(define-music-function (music)
(ly:music?)
(_i "Return @var{music} in reverse order.")
- (retrograde-music music))
+ (retrograde-music
+ (expand-repeat-notes!
+ (expand-repeat-chords!
+ (cons 'rhythmic-event
+ (ly:parser-lookup '$chord-repeat-events))
+ music))))
revertTimeSignatureSettings =
#(define-music-function