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

diff --git a/input/regression/tie-chord.ly b/input/regression/tie-chord.ly
index f4e973dc69..f867e54613 100644
--- a/input/regression/tie-chord.ly
+++ b/input/regression/tie-chord.ly
@@ -1,19 +1,17 @@
 \header {
 
-
   texidoc = "In chords, ties keep closer to the note head vertically,
-but never collide with heads or stems. Seconds are formatted up/down;
+but never collide with heads or stems.  Seconds are formatted up/@/down;
 the rest of the ties are positioned according to their vertical
 position.
 
-The code does not handle all cases. Sometimes ties will printed on top
-of or very close to each other. This happens in the last chords of
-each system.  "
-  
+The code does not handle all cases.  Sometimes ties will printed on top
+of or very close to each other.  This happens in the last chords of
+each system."
 
 }
 
-\version "2.14.0"
+\version "2.19.22"
 
 \paper {
   indent = #0.0
@@ -23,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?)
 
     "
 
@@ -57,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>