@verb #210:"delete delete2" this none this rxdo #789
@program #210:"delete delete2" this none this
":delete(string) deletes any <string,anything> pair from the database."
":delete2(string, datum) deletes any <string,datum> pair from the database."
"Returns {something} if such a pair existed, otherwise returns 0"
this:is_writable_by(caller_perms()) || raise(E_PERM)
{string, ?datum} = args
old = `{this.(" " + string)} ! E_PROPNF => 0'
if (old)
  if (verb == "delete2" && {datum} != old)
    "Matching string found, but mismatched datum."
    return 0
  endif
  delete_property(this, " " + string)
endif
return old
"Last modified by Dax (#789) on Wed Sep 21 06:03:28 2005 MDT."
.