From b757ca820a230ef7393f6ed81e6aceda723caf26 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Mon, 15 Aug 2016 17:40:05 +0200
Subject: [PATCH] Issue 4956/1: Let \retrograde expand repeat chords/notes

Since those lose their point of reference, expanding them
prior to retrograding keeps the results sane.
---
 ly/music-functions-init.ly | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
2.39.5