Imported Upstream version 2.16.0

[lilypond.git] / input / regression / beam-concave.ly

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index 093f30d918dd1819072b10ff8be7997fb69b2d3c..6643e38cef9c314ef979e19539f27999a6479b75 100644 (file)
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,4 +1,4 @@
-\version "2.12.0"
+\version "2.16.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
   
 }