@verb #100:"go" this none this rxdo #55
@program #100:"go" this none this
if (caller != this && !caller_perms().wizard)
  raise(E_PERM)
endif
this.active_task = task_id()
if (!$lazy_heap_utils:is_empty(this.heap))
  {info, callers, oldtaskid} = $lazy_heap_utils:minimum(this.heap)
  {priority, @info} = info
  this.heap = $lazy_heap_utils:delete_minimum(this.heap)
  this.log = {task_id(), @this.log}
  add_property(this, tostr(task_id()), {priority, callers, oldtaskid}, {this, "r"})
  for x in (`this.log[this.log_length + 1..$] ! E_RANGE => {}')
    `delete_property(this, tostr(x)) ! E_PROPNF => "Oh well"'
    this.log = listdelete(this.log, this.log_length + 1)
  endfor
  set_task_perms(this)
  suspend(0)
  fork t (0)
    this:go()
  endfork
  this:do_verb_call(@info)
endif
"Last modified by whiz.kid (#3135) on Sat Mar 14 11:48:07 1998 EST."
.