Articulate.ly Perform single epression substitutio

Issue 3204

Perform single expression substitution

diff --git a/ly/articulate.ly b/ly/articulate.ly
index 985c680e35d1be37de0b703d0f68a2667a6d08f2..6992c87ebdc94b8a7a09860153d7494655b8354a 100644 (file)
--- a/ly/articulate.ly
+++ b/ly/articulate.ly
@@ -443,7 +443,7 @@
            (list-tabulate
             (- rc (length ealtl))
             (lambda (i) (list (ly:music-deep-copy body) (ly:music-deep-copy (car ealtl)))))
-           (map (lambda (alt) (list (ly:music-deep-copy body) alt))))))))))
+           (map (lambda (alt) (list (ly:music-deep-copy body) alt)) ealtl))))))))
      ((EventChord)
       (let-values
        (((trem evl)