@verb #210:"insert" this none this rxdo #789
@program #210:"insert" this none this
":insert(string[, datum]) -- inserts <string,datum> correspondence into database."
"Returns {old_datum} if there was a <string,old_datum> correspondence there before, otherwise returns 0"
this:is_writable_by(caller_perms()) || raise(E_PERM)
{string, ?datum = 1} = args
old = `{this.(" " + string)} ! E_PROPNF => 0'
if (old)
  this.(" " + string) = datum
else
  add_property(this, " " + string, datum, {$dbflat.owner, ""})
endif
return old
"Last modified by Dax (#789) on Sat May 21 03:39:51 2005 MDT."
.