From: David Kastrup <dak@gnu.org>
Date: Thu, 14 Nov 2013 13:26:23 +0000 (+0100)
Subject: Let copy-repeat-chord return the copy target for efficiency
X-Git-Tag: release/2.19.0-1~151^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=795861191510f457ab2294b02ec3b3c64c40602c;p=lilypond.git

Let copy-repeat-chord return the copy target for efficiency
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 383b7f3f6d..5d717f9b53 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -728,7 +728,8 @@ duration is replaced with the specified @var{duration}."
         (set! (ly:music-property repeat-chord 'articulations)
               (append!
                (set-origin! (ly:music-deep-copy arts))
-               (ly:music-property repeat-chord 'articulations))))))
+               (ly:music-property repeat-chord 'articulations)))))
+  repeat-chord)
 
 
 (define-public (expand-repeat-chords! event-types music)
@@ -747,8 +748,7 @@ respective predecessor chord."
                 last-chord))
            (last-chord
             (set! (ly:music-property music 'duration) '())
-            (copy-repeat-chord last-chord music chord-repeat event-types)
-            music)
+            (copy-repeat-chord last-chord music chord-repeat event-types))
            (else
             (ly:music-warning music (_ "Bad chord repetition"))
             #f)))