280
@verb #24:"handle_uncaught_error handle_task_timeout" this none this rxdo #55
@program #24:"handle_uncaught_error handle_task_timeout" this none this
"if ((!$perm_utils:is_called_from($login, verb)) && (!$perm_utils:is_called_from(#0, verb)))"
"  raise(E_PERM);"
"endif"
caller_perms():controls(this) || raise(E_PERM)
if (length(args) == 1)
  for x in (args[1])
    notify(this, x)
  endfor
else
  verb[8] == "t" ? {error, callers, tb} = args | ({error, message, value, callers, tb} = args)
  for x in (tb)
    notify(this, x)
  endfor
endif
return 1
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:18:14 2001 MST."
.

0