Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / input / regression / tie-chord.ly

diff --git a/input/regression/tie-chord.ly b/input/regression/tie-chord.ly
index 1bea075b306962ecc9abf0e4852f9a1f7678e63c..f867e54613beb3128b401c12b8611e5ac9778d18 100644 (file)
--- a/input/regression/tie-chord.ly
+++ b/input/regression/tie-chord.ly
@@ -11,7 +11,7 @@ each system."
 
 }
 
-\version "2.14.0"
+\version "2.19.22"
 
 \paper {
   indent = #0.0
@@ -21,7 +21,7 @@ each system."
 
 
 generateTiePattern
-= #(define-music-function (parser location is-long chords) (boolean? ly:music?)
+= #(define-music-function (is-long chords) (boolean? ly:music?)
 
     "
 
@@ -55,14 +55,14 @@ translate x y z to x~x y~y z~z
 
       (list ch1 ch2)))
 
-  (make-music 'SequentialMusic 'elements (apply append
-                                               (map chord->tied-chord (ly:music-property  chords 'elements)))))
+  (make-music 'SequentialMusic 'elements (append-map
+                                         chord->tied-chord (ly:music-property  chords 'elements))))
 
 baseChords =
 \applyMusic #(lambda (mus)
              (ly:music-property mus 'element))
-\relative c'' {
-  <c e>  
+\relative {
+  <c'' e>  
   <b c e>
   <a c e>
   <a b e>