* scm/drums.scm (make-head-type-elem, make-articulation-script):

More ly-make-music renamings.

* lily/command-request.cc: ADD_MUSIC: arpeggio_req.

diff --git a/ChangeLog b/ChangeLog
index 612c792d0cd2f336aa101dcdcc22a4f8870684f1..f3aa3c1d9c3106ebd6960b0b05b187ecc2cca566 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-09-23  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/drums.scm (make-head-type-elem, make-articulation-script):
+       More ly-make-music renamings.
+
+       * lily/command-request.cc: ADD_MUSIC: arpeggio_req.
+
        * lily/music-constructor.cc (make_music): Add debugging info.
 
        * scm/music-functions.scm (make-simultaneous-music,

diff --git a/lily/command-request.cc b/lily/command-request.cc
index 06d31d1f8a4788cfe5f71e454c3f5a48c46b395d..65add7878c448511d47db91cf5011ab81c655e79 100644 (file)
--- a/lily/command-request.cc
+++ b/lily/command-request.cc
@@ -103,6 +103,7 @@ Mark_req::do_equal_b (Request const * r) const
 }
 
 ADD_MUSIC(Bass_figure_req);
+ADD_MUSIC (Arpeggio_req);
 ADD_MUSIC (Articulation_req);
 ADD_MUSIC (Break_req);
 ADD_MUSIC (Breathing_sign_req);

diff --git a/scm/drums.scm b/scm/drums.scm
index 9554dab8b7686f26831918107638491fbc06954e..b2c5d24d5571b5de1c9904e0640a16ec6b7ec764 100644 (file)
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -165,12 +165,9 @@
 ;;
 
 (define (make-articulation-script x) 
-     (let* (  (m (ly-make-music "Articulation_req"))
-           )
+     (let* ((m (make-music-by-name "Articulation_req")))
      (ly-set-mus-property! m 'articulation-type x)
-     m
-     )
- )
+     m))
 
 ;; adds the articulation script x to m if x is not #f.
 (define (add-articulation-script m x)
@@ -191,8 +188,7 @@
  )
 
 (define (make-head-type-elem t)
-   (let* ( (m (ly-make-music "Music"))
-         )
+   (let* ( (m (make-music-by-name "Music")))
      (set-mus-properties!
       m
       `((iterator-ctor . ,Push_property_iterator::constructor)