@verb #53:"remove_dead_refs" this none this rxdo #55
@program #53:"remove_dead_refs" this none this
{x} = args
if (typeof(x) == $LIST)
  r = {}
  for item in (x)
    r = {@r, this:remove_dead_refs(item)}
    $command_utils:suspend_if_needed(1)
  endfor
  x = r
elseif (typeof(x) == $OBJ && valid(x) && !$recycler:valid(x))
  x = toobj(-toint(x))
endif
return x
"Last modified by Dax (#789) on Wed May  4 06:37:09 2005 MDT."
.