X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fscheme-text-spanner.ly;h=6dc74454098841d5033a4c9a92ff1eef4482b9a2;hb=d2762a4f1add2bb04d6fc34d3c7ae03eeb7d500f;hp=fc60c5b33964bf8eb11cebe61224ae26225d704f;hpb=e7aa6c445f463844dbaa52d38ea4aac2882b5601;p=lilypond.git

diff --git a/input/regression/scheme-text-spanner.ly b/input/regression/scheme-text-spanner.ly
index fc60c5b339..6dc7445409 100644
--- a/input/regression/scheme-text-spanner.ly
+++ b/input/regression/scheme-text-spanner.ly
@@ -1,4 +1,4 @@
-\version "2.17.6"
+\version "2.19.12"
 
 \header {
   texidoc = "Use @code{define-event-class}, scheme engraver methods,
@@ -12,7 +12,7 @@ in scheme."
    (let* ((meta-entry   (assoc-get 'meta grob-entry))
           (class        (assoc-get 'class meta-entry))
           (ifaces-entry (assoc-get 'interfaces meta-entry)))
-     (set-object-property! grob-name 'translation-type? list?)
+     (set-object-property! grob-name 'translation-type? ly:grob-properties?)
      (set-object-property! grob-name 'is-grob? #t)
      (set! ifaces-entry (append (case class
                                   ((Item) '(item-interface))
@@ -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