use 'name property, not ly:music-name.

diff --git a/ChangeLog b/ChangeLog
index d7aad68c258d56b30d11af52420fb86989d56c2c..95a23b27d63fa0fab1278c9a6783e92e870ceddb 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-03-28  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * input/test/music-box.ly: use 'name property, not ly:music-name.
+
        * lily/GNUmakefile (MODULE_LDFLAGS): add KPATHSEA_LIBS.
 
        * stepmake/aclocal.m4: STEPMAKE_FONTCONFIG: add.

diff --git a/input/test/music-box.ly b/input/test/music-box.ly
index e731e1ae1d48372c573573eb78587d65bd9c04a5..fd31edb90276264f33494fcb2cc971374057b8a8 100644 (file)
--- a/input/test/music-box.ly
+++ b/input/test/music-box.ly
@@ -9,9 +9,9 @@ using Scheme functions to avoid typing work. " }
 
 #(define (transform music)
   (let* ((es (ly:music-property music 'elements))
-         (n  (ly:music-name music)))
-   (if (not (equal? n "Sequential_music"))
-     (ly:warn "transform needs sequential music!")
+         (n  (ly:music-property music 'name)))
+   (if (not (equal? n 'SequentialMusic))
+     (ly:warn "transform needs SequentialMusic, got ~a" n)
      (begin
       (let recurse ((elts es))
        (if (not (equal? elts '()))