* lily/parser.yy (My_lily_parser): uncomment code. (Causes

[lilypond.git] / input / test / reverse-music.ly

diff --git a/input/test/reverse-music.ly b/input/test/reverse-music.ly
index d93a8ec5428c91110411adf5536632afcb0c8fab..4da5b6d8862da91e96a6891f7aee3fc85a5f7711 100644 (file)
--- a/input/test/reverse-music.ly
+++ b/input/test/reverse-music.ly
@@ -1,19 +1,26 @@
+\version "1.3.146"
 
 \header {
 texidoc="
 Simple customised music apply.
-";
+"
 }
 
-music = \notes { c'4 d'4( e'4 f'4 }
+music = \notes \relative c'' { c4 d4( e4 f4 }
 
 #(define (reverse-music music)
   (let* ((elements (ly-get-mus-property music 'elements))
          (reversed (reverse elements))
+         (e (ly-get-mus-property music 'element))
          (span-dir (ly-get-mus-property music 'span-direction)))
 
     (ly-set-mus-property music 'elements reversed)
 
+    (if (music? e)
+        (ly-set-mus-property
+         music 'element
+         (reverse-music e)))
+
     (if (dir? span-dir)
         (ly-set-mus-property music 'span-direction (- span-dir)))
 
@@ -26,6 +33,6 @@ music = \notes { c'4 d'4( e'4 f'4 }
     \music
     \apply #reverse-music \music
   }
-  \paper { linewidth = -1.; }
+  \paper { linewidth = -1. }
 }