X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=8394f9a5d1bacbd6424478d7bc4a1e1fb8874a1f;hb=0a0274a3bf5792dfb7ce3719f5dfaef36059affe;hp=4ab8813e22138b530524d9ea894a51e35691bb8e;hpb=d02446a61d3eabfde67ed48928ae07766c97750f;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index 4ab8813e22..8394f9a5d1 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,4 +1,4 @@
-\version "2.7.32"
+\version "2.14.0"
 \header{
 
   texidoc = "Fully concave beams should be horizontal. Informally spoken,
@@ -6,7 +6,7 @@
   beam. If an up-beam has high notes on its center stems, then we call
   it concave.
 
-  If a beam is fails a test, the desired slope is printed next to it.
+  If a beam fails a test, the desired slope is printed next to it.
 
 " 
 }
@@ -58,11 +58,7 @@ rossBeams = \relative c'' {
 
 #(define (<> x y) (not (= x  y)))
 \new Voice {
-  \override Beam #'positions = #(ly:make-simple-closure
-				 (ly:make-simple-closure
-				  (append
-				   (list chain-grob-member-functions `(,cons 0 0))
-				   (check-slope-callbacks =))))
+  \override Beam #'positions = #(check-slope-callbacks =)
   \rossBeams
   
 }