[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
non-existent procedure-with-setter in input/regression/scheme-text-spann
From: |
david . nalesnik |
Subject: |
non-existent procedure-with-setter in input/regression/scheme-text-spanner.ly (issue 157100043 by address@hidden) |
Date: |
Thu, 16 Oct 2014 21:15:01 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- non-existent procedure-with-setter in input/regression/scheme-text-spanner.ly (issue 157100043 by address@hidden),
david . nalesnik <=