make lyric-syllable-magnetic-snap work with Lily >= 2.19.11

akobel · Dec 26, 2016 · bbba147 · bbba147
1 parent b2a77df
commit bbba147
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily b/notation-snippets/lyric-syllable-magnetic-snap/definitions.ily
@@ -1,5 +1,7 @@
 \version "2.18.0" % absolutely necessary!
 
+\include "ly/_internal/utilities/lilypond-version-predicates.ily"
+
 \header {
   snippet-title = "Magnetic snapping lyric syllables"
   snippet-author = "David Nalesnik and Mike Solomon,"
@@ -52,7 +54,8 @@
    (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?
+      (if (lilypond-less-than? "2.19.11") list? ly:grob-properties?))
      (set-object-property! grob-name 'is-grob? #t)
      (set! ifaces-entry (append (case class
                                   ((Item) '(item-interface))