object wiz_who_called;

static init() {
  if (!prototype(this_object())) destruct(this_object());
}

wizcompile() {
  alarm(0,"docompile");
  wiz_who_called=caller_object();
}

static docompile() {
  object o;

  o=compile_object("/obj/wiz");
  if (!wiz_who_called) return;
  if (o)
    call_other(wiz_who_called,"listen","@load: "+otoa(o)+" compiled\n");
  else
    call_other(wiz_who_called,"listen","@load: failed\n");
}