X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fscheme-text-spanner.ly;h=d89a959149739604babe7b16bdd281512247ddc9;hb=01b15679731ac5fcaf8edac1ad5bce6acba10ff0;hp=fc60c5b33964bf8eb11cebe61224ae26225d704f;hpb=058370efc7e9710f149d0f444328bb1fcd7bdec1;p=lilypond.git

diff --git a/input/regression/scheme-text-spanner.ly b/input/regression/scheme-text-spanner.ly
index fc60c5b339..d89a959149 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.21"
 
 \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))
@@ -68,7 +68,7 @@ in scheme."
      (SchemeTextSpanEvent
       . ((description . "Used to signal where scheme text spanner brackets
 start and stop.")
-         (types . (general-music scheme-text-span-event span-event event))
+         (types . (scheme-text-span-event span-event event))
          ))
      ))
 
@@ -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
@@ -185,7 +185,7 @@ schemeTextSpannerEnd =
   }
 }
 
-\relative c' {
+\relative {
   a4 b\schemeTextSpannerStart c d |
   \repeat unfold 20 { a4 b c d | }
   a4 b c\schemeTextSpannerEnd d |