(construct-chord): process transposition

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

diff --git a/input/test/music-creation.ly b/input/test/music-creation.ly
index ce5e3f120e5cfd63628f9dd1d2000abd69d20358..db0204b7e0e0700a53636fc7d27bc1579f02d1ec 100644 (file)
--- a/input/test/music-creation.ly
+++ b/input/test/music-creation.ly
@@ -1,4 +1,5 @@
-\version "1.9.6"  %% or actually: 1.7.1 ...
+\version "2.1.26"
+
 % possible rename to scheme- something.  -gp
 \header { texidoc = "@cindex Scheme Music Creation
 You can create music expressions from Scheme.  The
@@ -7,18 +8,18 @@ mechanism for this is rather clumsy to use, so avoid it if possible. "
 
 #(define (make-note-req p d)
    (let* ((ml (make-music-by-name 'NoteEvent)))
-   (ly:set-mus-property! ml 'duration d)
-   (ly:set-mus-property! ml 'pitch p)
+   (ly:music-set-property! ml 'duration d)
+   (ly:music-set-property! ml 'pitch p)
    ml))
 
 #(define (make-note elts)
    (let* ((ml (make-music-by-name 'EventChord)))
-   (ly:set-mus-property! ml 'elements elts)
+   (ly:music-set-property! ml 'elements elts)
    ml))
 
 #(define (seq-music-list elts)
    (let* ((ml (make-music-by-name 'SequentialMusic)))
-   (ly:set-mus-property! ml 'elements elts)
+   (ly:music-set-property! ml 'elements elts)
    ml))