14b
@verb #340:"get_name_for_object" this none this rxdo #7214
@program #340:"get_name_for_object" this none this
{o} = args
o in this.objects || raise(E_INVARG)
for x in (properties(this))
  if (this.(x) == o)
    return x
  endif
endfor
raise(E_PROPNF)
"Last modified by manta (#7165) on Thu May  4 19:55:19 2000 MDT."
.

0