Use new music-clone arguments in \endSpanners

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index f3210832186e5b4510fcec365b6c3f2ef4312d3b..6b5bd6ece82a93dc9b9faf0173bf69c0f180d7bf 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -344,10 +344,8 @@ without the need of a specific end spanner.")
                                  (extract-typed-music music 'span-event)))
          (stop-span-evs
           (map (lambda (m)
-                 (let ((c (music-clone m)))
-                   (set! (ly:music-property c 'span-direction) STOP)
-                   c))
-               start-span-evs))
+                 (music-clone m 'span-direction STOP))
+                start-span-evs))
          (end-ev-chord (make-music 'EventChord
                                    'elements stop-span-evs))
          (total (make-music 'SequentialMusic