t->register_as_listener (f);
- return SCM_UNDEFINED;
+ return SCM_UNSPECIFIED;
}
LY_DEFINE (ly_add_listener, "ly:add-listener",
d->add_listener (*l, sym);
}
- return SCM_UNDEFINED;
+ return SCM_UNSPECIFIED;
}
LY_DEFINE (ly_listened_event_types, "ly:listened-event-types",
return scm_from_bool (result);
}
-
LY_DEFINE (ly_broadcast, "ly:broadcast",
2, 0, 0, (SCM disp, SCM ev),
"Send the stream event @var{ev} to the dispatcher @var{disp}.")
LY_ASSERT_SMOB (Stream_event, ev, 2);
d->broadcast (e);
- return SCM_UNDEFINED;
+ return SCM_UNSPECIFIED;
}