From 3268be71159f07d111efa5f7019cdb6fba995bf5 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 23 Sep 2002 18:37:55 +0000 Subject: [PATCH] * scm/drums.scm (make-head-type-elem, make-articulation-script): More ly-make-music renamings. * lily/command-request.cc: ADD_MUSIC: arpeggio_req. --- ChangeLog | 5 +++++ lily/command-request.cc | 1 + scm/drums.scm | 10 +++------- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 612c792d0c..f3aa3c1d9c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2002-09-23 Jan Nieuwenhuizen + * 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 06d31d1f8a..65add7878c 100644 --- 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 9554dab8b7..b2c5d24d55 100644 --- 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) -- 2.39.5