275
@verb #340:"_new_object" this none this rxdo #7214
@program #340:"_new_object" this none this
caller == this || raise(E_PERM)
{parent, name, ?magic_number} = args
add_property(this, name, 0, {this.owner, "r"})
if (`magic_number ! E_VARNF' != E_VARNF)
  o = $recycler:request(magic_number, parent, this.owner, this.owner)
else
  o = $recycler:create(parent, this.owner, this.owner)
endif
this.(name) = o
this.objects = {@this.objects, o}
`add_property(o, "module", this, {this.owner, "r"}) ! E_INVARG'
o.module = this
o:set_name(name)
return o
"Last modified by manta (#7165) on Thu May  4 15:52:31 2000 MDT."
.

0