X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=d165f4e5f479ae2ca1f40d2c89dd6d01818b2443;hb=5b3aefef28e2af771f9367a9dcecbdd3411841ca;hp=077dd2bcc9cb6252155e287936fe45e4b007f154;hpb=75c339f75315f38e85d137c8ea0693fbc4cc4028;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index 077dd2bcc9..d165f4e5f4 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,5 +1,4 @@
-
-\version "2.7.13"
+\version "2.17.11"
 \header{
 
   texidoc = "Fully concave beams should be horizontal. Informally spoken,
@@ -7,13 +6,13 @@
   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.
 
 " 
 }
 
 
-resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
+resetMeasure = \set Score.measurePosition = #(ly:make-moment 0/1)
 
 %% examples from Ross.
 rossFourBeams =\relative c'' {
@@ -50,7 +49,7 @@ rossBeams = \relative c'' {
 }
 
 \layout{
-  raggedright = ##t
+  ragged-right = ##t
   #(define debug-beam-quanting #t)
 }
 
@@ -59,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
   
 }