/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
Grob_info::event_cause () const
{
SCM cause = grob_->get_property ("cause");
- return unsmob_stream_event (cause);
+ return unsmob<Stream_event> (cause);
}
vector<Context *>
Grob_info::ultimate_event_cause () const
{
SCM cause = grob_->self_scm ();
- while (unsmob_grob (cause))
+ while (unsmob<Grob> (cause))
{
- cause = unsmob_grob (cause)->get_property ("cause");
+ cause = unsmob<Grob> (cause)->get_property ("cause");
}
- return unsmob_stream_event (cause);
+ return unsmob<Stream_event> (cause);
}
bool