@verb #4:"free_objects" this none this rxd #55
@program #4:"free_objects" this none this
objs = this:_get_max_obj() - length(this.owned_objects)
for x in (this.owned_objects)
  if (parent(x) == $garbage)
    this.owned_objects = setremove(this.owned_objects, x)
  elseif (`x:_get_subsidised() || x:_get_petrified() ! E_PROPNF => 0')
    objs = objs + 1
  endif
  $command_utils:suspend_if_needed()
endfor
if (objs <= 0)
  $quota:revoke_access(this)
elseif (this in $quota.revokees && this:_get_max_vm() - this:sizeof_audit() > 0)
  $quota:restore_access(this)
endif
return objs
"Last modified by Cecil (#7407) on Wed Dec 10 17:14:39 1997 EST."
"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."
.