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.18.1-1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e96a0230c940b7c38fb5dbc000231cde71e06d3b;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 4329e1c400..45e07d6f7a 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)))