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
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
