From: fred Date: Tue, 26 Mar 2002 23:57:35 +0000 (+0000) Subject: lilypond-1.3.103 X-Git-Tag: release/1.5.59~1225 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=be59785cac67abba7de4d268bd237f670191cc32;p=lilypond.git lilypond-1.3.103 --- diff --git a/lily/music-sequence.cc b/lily/music-sequence.cc index 2e5243f6b5..d8089ad74d 100644 --- a/lily/music-sequence.cc +++ b/lily/music-sequence.cc @@ -14,7 +14,7 @@ void Music_sequence::truncate (int k) { - SCM l = get_mus_property ("list"); + SCM l = get_mus_property ("elements"); if (k == 0) { l = SCM_EOL; @@ -31,13 +31,13 @@ Music_sequence::truncate (int k) gh_set_cdr_x (s, SCM_EOL); } } - set_mus_property ("list", l); + set_mus_property ("elements", l); } SCM Music_sequence::music_list ()const { - return get_mus_property ("list"); + return get_mus_property ("elements"); } /* @@ -46,14 +46,14 @@ Music_sequence::music_list ()const void Music_sequence::append_music (Music *m) { - set_mus_property ("list", + set_mus_property ("elements", gh_append2( music_list(), gh_cons (m->self_scm (), SCM_EOL))); scm_unprotect_object (m->self_scm ()); } Music_sequence::Music_sequence(SCM h) { - set_mus_property ("list", h); + set_mus_property ("elements", h); } void