non-existent procedure-with-setter in input/regression/scheme-text-spanner.ly (issue 157100043 by address@hidden)

[david . nalesnik]

Reviewers: ,

Message:
Please review.


Description:
No procedure-with-setter is provided for ly:spanner-set-bound! in
scm/music-functions.scm.  This patch removes the faulty usage in
input/regression/scheme-text-spanner.ly.

Please review this at https://codereview.appspot.com/157100043/

Affected files (+6, -6 lines):
  M input/regression/scheme-text-spanner.ly


Index: input/regression/scheme-text-spanner.ly
diff --git a/input/regression/scheme-text-spanner.ly  
b/input/regression/scheme-text-spanner.ly
index  
8442f60a96573d6e2810e9d1e8557f8878821f8e..6dc74454098841d5033a4c9a92ff1eef4482b9a2  
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