LY_DEFINE (ly_event_p, "ly:event?",
1, 0, 0, (SCM obj),
- "Is @var{obj} an event object?")
+ "Is @var{obj} a proper (non-rhythmic) event object?")
{
if (Music *m = unsmob_music (obj))
{
- return scm_from_bool (m->is_mus_type ("event"));
+ return scm_from_bool (m->is_mus_type ("post-event"));
}
return SCM_BOOL_F;
}