X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Ftest%2Freverse-music.ly;h=cfb775a05f0102172a6449e1c8089c40b20f3823;hb=ecaf73bb03e974018c17e3051b3ac3a805dd1653;hp=77db66b19da54adaf9dc6a2160b2417159cb076e;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/input/test/reverse-music.ly b/input/test/reverse-music.ly
index 77db66b19d..cfb775a05f 100644
--- a/input/test/reverse-music.ly
+++ b/input/test/reverse-music.ly
@@ -1,27 +1,30 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1"
+
+\version "2.1.28"
 % possible rename to scheme-something.
 \header { texidoc="@cindex Scheme Reverse Music
-Simple customised music apply. "
+Symmetric, or palindromical music can be produced, first, by printing
+some music, and second, by printing the same music applying a Scheme
+function to reverse the syntax.
+"
 }
 
 music = \notes \relative c'' { c4 d4( e4 f4 }
 
 #(define (reverse-music music)
-  (let* ((elements (ly:get-mus-property music 'elements))
+  (let* ((elements (ly:music-property music 'elements))
          (reversed (reverse elements))
-         (e (ly:get-mus-property music 'element))
-         (span-dir (ly:get-mus-property music 'span-direction)))
+         (e (ly:music-property music 'element))
+         (span-dir (ly:music-property music 'span-direction)))
 
-    (ly:set-mus-property! music 'elements reversed)
+    (ly:music-set-property! music 'elements reversed)
 
     (if (ly:music? e)
-        (ly:set-mus-property!
+        (ly:music-set-property!
          music 'element
          (reverse-music e)))
 
     (if (ly:dir? span-dir)
-        (ly:set-mus-property! music 'span-direction (- span-dir)))
+        (ly:music-set-property! music 'span-direction (- span-dir)))
 
     (map reverse-music reversed)