* scm/*.scm: make-music-by-name is replaced by make-music, which

[lilypond.git] / ly / dynamic-scripts-init.ly

diff --git a/ly/dynamic-scripts-init.ly b/ly/dynamic-scripts-init.ly
index b6393ac000df934721bce212b944c92fb7443923..ca6358ea15e2651d6cd95d248423c6aab5e67b59 100644 (file)
--- a/ly/dynamic-scripts-init.ly
+++ b/ly/dynamic-scripts-init.ly
@@ -5,10 +5,8 @@
 %
 
 #(define (make-dynamic-script str)
-  (let* ((m (make-music-by-name  'AbsoluteDynamicEvent)))
-  (ly:music-set-property! m 'text str)
-  m
-  ))
+   (make-music 'AbsoluteDynamicEvent
+              'text str))
 ppppp = #(make-dynamic-script "pppp")
 pppp = #(make-dynamic-script "pppp")
 ppp = #(make-dynamic-script "ppp")