Non-existent procedure-with-setter in input/regression/scheme-text-spanner.ly

No procedure-with-setter is provided for ly:spanner-set-bound! in scm/music-functions.scm.

diff --git a/input/regression/scheme-text-spanner.ly b/input/regression/scheme-text-spanner.ly
index 8442f60a96573d6e2810e9d1e8557f8878821f8e..6dc74454098841d5033a4c9a92ff1eef4482b9a2 100644 (file)
--- a/input/regression/scheme-text-spanner.ly
+++ b/input/regression/scheme-text-spanner.ly
@@ -145,13 +145,13 @@ schemeTextSpannerEngraver =
       ((stop-translation-timestep trans)
        (if (and (ly:spanner? span)
                 (null? (ly:spanner-bound span LEFT)))
-           (set! (ly:spanner-bound span LEFT)
-                 (ly:context-property context 'currentMusicalColumn)))
+           (ly:spanner-set-bound! span LEFT
+             (ly:context-property context 'currentMusicalColumn)))
        (if (ly:spanner? finished)
            (begin
              (if (null? (ly:spanner-bound finished RIGHT))
-                 (set! (ly:spanner-bound finished RIGHT)
-                       (ly:context-property context 'currentMusicalColumn)))
+                 (ly:spanner-set-bound! finished RIGHT
+                   (ly:context-property context 'currentMusicalColumn)))
              (set! finished '())
              (set! event-start '())
              (set! event-stop '()))))
@@ -159,8 +159,8 @@ schemeTextSpannerEngraver =
        (if (ly:spanner? finished)
            (begin
              (if (null? (ly:spanner-bound finished RIGHT))
-                 (set! (ly:spanner-bound finished RIGHT)
-                       (ly:context-property context 'currentMusicalColumn)))
+                 (ly:spanner-set-bound! finished RIGHT
+                   (ly:context-property context 'currentMusicalColumn)))
              (set! finished '())))
        (if (ly:spanner? span)
            (begin