X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave-chord.ly;h=59643345f23f49df7189275f1d1b7f7b9cf59fa4;hb=ca313ffb0f6a3fe1dd5bcacfcabe2edd7a50697e;hp=5d5aa308263d5310a3dbf0e5d116ca2c39940032;hpb=2940cdd12c135ef94e4c95ac815e76014eef9c79;p=lilypond.git

diff --git a/input/regression/beam-concave-chord.ly b/input/regression/beam-concave-chord.ly
index 5d5aa30826..59643345f2 100644
--- a/input/regression/beam-concave-chord.ly
+++ b/input/regression/beam-concave-chord.ly
@@ -1,4 +1,4 @@
-\version "2.14.0"
+\version "2.17.6"
 \header {
 texidoc = "Concave beaming works for chords as well as monophonic
 music.
@@ -35,22 +35,12 @@ nonHorizontalBeams = {
 
 % cut & paste from beam-concave.ly
 
-#(define (<> x y) (not (= x  y)))
+#(define (<> x y) (not (= x y)))
 mustBeHorizontal = {
-  \override Staff.Beam #'positions =
-    #(ly:make-simple-closure
-      (ly:make-simple-closure
-       (append
-        (list chain-grob-member-functions `(,cons 0 0))
-        (check-slope-callbacks =))))
+  \override Staff.Beam.positions = #(check-slope-callbacks =)
 }
 mustNotBeHorizontal = {
-  \override Staff.Beam #'positions =
-    #(ly:make-simple-closure
-      (ly:make-simple-closure
-       (append
-        (list chain-grob-member-functions `(,cons 0 0))
-        (check-slope-callbacks <>))))
+  \override Staff.Beam.positions = #(check-slope-callbacks <>)
 }
 
 \new Voice {