X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Falter-broken.ly;h=14fa489c6cfaa90c21ee84fa747cccf1ce73101c;hb=13da8b27aabc5d5a752d00ed1e2b99ad20f0f264;hp=8883569aa2772fc3129539b6808dedea13153837;hpb=516cae503bc2b55e95604b0c0f681a6ccddcfab2;p=lilypond.git

diff --git a/input/regression/alter-broken.ly b/input/regression/alter-broken.ly
index 8883569aa2..14fa489c6c 100644
--- a/input/regression/alter-broken.ly
+++ b/input/regression/alter-broken.ly
@@ -13,31 +13,31 @@ its usage with a variety of data types."
 #(ly:expect-warning (_ "not a spanner name"))
 
 \relative c'' {
-  \alterBroken Slur #'positions #'((3 . 3) (5 . 5))
-  \alterBroken Slur #'color #'((0 0 1) (1 0 0))
-  \alterBroken Slur #'dash-definition #'( ((0 1 0.4 0.75))
-                                          ((0 0.5 0.4 0.75) (0.5 1 1 1)) )
+  \alterBroken #'positions #'((3 . 3) (5 . 5)) Slur
+  \alterBroken #'color #'((0 0 1) (1 0 0)) Slur
+  \alterBroken #'dash-definition #'( ((0 1 0.4 0.75))
+                                          ((0 0.5 0.4 0.75) (0.5 1 1 1)) ) Slur
   d4( d' b g
   \break
   d d' b g)
-  \alterBroken Staff.OttavaBracket #'padding #'(1 3)
+  \alterBroken #'padding #'(1 3) Staff.OttavaBracket
   % Spaces in spanner's name are disregarded.
-  \alterBroken Staff.OttavaBracket #'style #'(line dashed-line)
+  \alterBroken #'style #'(line dashed-line) Staff.OttavaBracket
   \ottava #1
   % It is possible to use procedures as arguments.
-  \alterBroken Hairpin #'stencil #`(
+  \alterBroken #'stencil #`(
     ,ly:hairpin::print
     ,(lambda (grob)
-      (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0)))
+      (ly:stencil-rotate (ly:hairpin::print grob) -5 0 0))) Hairpin
   c\< d e
   % Since `NoteHead' is not the name of a spanner, the following has no
   % effect on layout.  A warning (suppressed here) is issued.
-  \alterBroken NoteHead #'color #`(,red ,blue)
-  \alterBroken Tie #'color #`(() ,blue)
-  \alterBroken Tie #'control-points #'(
+  \alterBroken #'color #`(,red ,blue) NoteHead
+  \alterBroken #'color #`(() ,blue) Tie
+  \alterBroken #'control-points #'(
      ((1 . 3) (2 . 4) (3 . 4) (4 . 3))
      ((3 . 3) (4 . 4) (5 . 4) (6 . 3))
-    )
+    ) Tie
   f~
   \break
   f c a f\!