From: David Nalesnik <david.nalesnik@gmail.com>
Date: Thu, 16 Oct 2014 20:33:38 +0000 (-0500)
Subject: Non-existent procedure-with-setter in input/regression/scheme-text-spanner.ly
X-Git-Tag: release/2.19.16-1~2^2~65^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5b3aefef28e2af771f9367a9dcecbdd3411841ca;p=lilypond.git

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 8442f60a96..6dc7445409 100644
--- 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