/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2012 Mike Solomon <mike@apollinemike.com>
+ Copyright (C) 2012 Mike Solomon <mike@mikesolomon.org>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
descend_to_bottom_context ();
Context *c = get_outlet ();
- Stream_event *ev = get_music ()->to_event ();
+ Stream_event *ev = get_music ()->to_event (c);
SCM arts = ev->get_property ("articulations");
if (scm_is_pair (arts))
SCM unlistened = SCM_EOL;
for (; scm_is_pair (arts); arts = scm_cdr (arts))
{
- SCM art = scm_car (arts);
+ SCM art = scm_car (arts);
- if (c->event_source ()->is_listened (unsmob_stream_event (art)))
+ if (c->event_source ()->is_listened_class
+ (unsmob_stream_event (art)->get_property ("class")))
listened = scm_cons (art, listened);
else
unlistened = scm_cons (art, unlistened);