X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Ftie-chord.ly;h=f867e54613beb3128b401c12b8611e5ac9778d18;hb=31059902570b531abd4cb21fc78ee2b5cc9395e7;hp=1bea075b306962ecc9abf0e4852f9a1f7678e63c;hpb=a066a93ee74edebb9d238a1bac93c3bc7e8e6e4a;p=lilypond.git

diff --git a/input/regression/tie-chord.ly b/input/regression/tie-chord.ly
index 1bea075b30..f867e54613 100644
--- 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>