-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 =))))
-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 <>))))
-
+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 =))))
+}
+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 <>))))
+}