X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic.cc;h=eea6a9ca818a58552a5d4cdda7a159754696d186;hb=e5b577bbe6dccb64e2531adb0024b3a77c1ea937;hp=be1fb2ed131cb0451ab4e373db8e46d52dd9982a;hpb=a81765842577dd2418fa41514f682d468a5ad483;p=lilypond.git

diff --git a/lily/music.cc b/lily/music.cc
index be1fb2ed13..eea6a9ca81 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -275,7 +275,7 @@ Music::origin () const
   ES TODO: This method should probably be reworked or junked.
 */
 Stream_event *
-Music::to_event (Context *c) const
+Music::to_event () const
 {
   SCM class_name = ly_camel_case_2_lisp_identifier (get_property ("name"));
 
@@ -283,8 +283,9 @@ Music::to_event (Context *c) const
   if (!internal_is_music_type (class_name))
     programming_error ("Not a music type");
 
-  Stream_event *e = new Stream_event (c->make_event_class (class_name),
-                                      mutable_property_alist_);
+  Stream_event *e = new Stream_event
+    (scm_call_1 (ly_lily_module_constant ("ly:make-event-class"), class_name),
+     mutable_property_alist_);
   Moment length = get_length ();
   if (length.to_bool ())
     e->set_property ("length", length.smobbed_copy ());
@@ -297,7 +298,7 @@ Music::to_event (Context *c) const
       for (; scm_is_pair (art_mus); art_mus = scm_cdr (art_mus))
         {
           Music *m = unsmob_music (scm_car (art_mus));
-          art_ev = scm_cons (m->to_event (c)->unprotect (), art_ev);
+          art_ev = scm_cons (m->to_event ()->unprotect (), art_ev);
         }
       e->set_property ("articulations", scm_reverse_x (art_ev, SCM_EOL));
     }
@@ -314,7 +315,7 @@ Music::to_event (Context *c) const
 void
 Music::send_to_context (Context *c)
 {
-  Stream_event *ev = to_event (c);
+  Stream_event *ev = to_event ();
   c->event_source ()->broadcast (ev);
   ev->unprotect ();
 }