void
Global_context::prepare (SCM sev)
{
- Stream_event *ev = unsmob_stream_event (sev);
+ Stream_event *ev = Stream_event::unsmob (sev);
Moment *mom = Moment::unsmob (ev->get_property ("moment"));
assert (mom);
else
return Context::get_default_interpreter ();
}
-
-Global_context *
-unsmob_global_context (SCM x)
-{
- return dynamic_cast<Global_context *> (Context::unsmob (x));
-}