From 958bb97d1ef05a5d8aa02488b16ecf0d387d27c9 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 17 Jan 2013 19:28:09 +0100 Subject: [PATCH] Use new music-clone arguments in \endSpanners --- ly/music-functions-init.ly | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index f321083218..6b5bd6ece8 100644 --- 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 -- 2.39.2