From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 28 Mar 2005 14:09:17 +0000 (+0000)
Subject: use 'name property, not ly:music-name.
X-Git-Tag: release/2.5.17~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=490eecfb31ba8e6fc260b8a11c3edd5aa10114fd;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index d7aad68c25..95a23b27d6 100644
--- 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 e731e1ae1d..fd31edb902 100644
--- 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 '()))