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 a21b1a84f52367a5a12f21df0688d8a35bbd1469..f867e54613beb3128b401c12b8611e5ac9778d18 100644 (file)
--- 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.10.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>