* input/regression/beam-quant-standard.ly: reindent, set

[lilypond.git] / ly / spanners-init.ly

diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly
index 2a0ee17aefb931315ee9bddb2a2dd2fa3bf06fe2..56d0272bd512bf0cff213095119dd8a1a783fee6 100644 (file)
--- a/ly/spanners-init.ly
+++ b/ly/spanners-init.ly
@@ -96,13 +96,13 @@ sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
 % for regression testing purposes.
 assertBeamQuant =
 #(def-music-function (parser location l r) (pair? pair?)
-  (make-grob-property-override 'Beam 'position-callbacks
-   (check-quant-callbacks l r)))
+  (make-grob-property-override 'Beam 'positions
+   (apply ly:make-callback-chain (check-quant-callbacks l r))))
     
 % for regression testing purposes.
 assertBeamSlope =
 #(def-music-function (parser location comp) (procedure?)
-  (make-grob-property-override 'Beam 'position-callbacks
-   (check-slope-callbacks comp)))
+  (make-grob-property-override 'Beam 'positions
+   (apply ly:make-callback-chain (check-slope-callbacks comp))))