1c6
@verb #101:"bf_delete_property" this none this rxdo #55
@program #101:"bf_delete_property" this none this
"Copied from Hobbes (#9299):bf_delete_property Aug 22 19:15:54 1997"
{object, pname} = args
if (caller_perms().wizard)
  set_task_perms(caller_perms())
elseif (`caller_perms():controls_property(object, pname) ! E_VERBNF => 0')
  set_task_perms(property_info(object, pname)[1])
else
  set_task_perms(caller_perms())
endif
pass(@args)
.

0