@verb #1:"filedelete file_remove" this none this rxdo #55
@program #1:"filedelete file_remove" this none this
{filename} = args
if (!$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
endif
try
  this.obj_disk_size = this.obj_disk_size - this:file_size(filename)
except ("E_FILE")
  redo_size = 1
endtry
file_remove($file_utils:filespec(this, filename))
`redo_size ! ANY' ? this:_obj_disk_size(1) | 0
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.