- Music *mus = unsmob_music (ly_car (s));
-
- bool gotcha = try_music (mus);
- if (!gotcha)
- mus->origin ()->warning (_f ("Junking event: `%s'", mus->name ()));
+ Music *mus = unsmob_music (scm_car (s));
+ report_event (mus);
+ }
+ for (SCM s = get_music ()->get_property ("events");
+ scm_is_pair (s); s = scm_cdr (s))
+ {
+ Stream_event *ev = unsmob_stream_event (scm_car (s));
+ get_outlet ()->event_source ()->broadcast (ev);