@verb #1:"has_prop*erty" this none this rxd #789
@program #1:"has_prop*erty" this none this
"object:has_property(propname)"
"Find out if an object has a property matching the given propname."
"Returns {location} if so, 0 if not, where location is the object or the ancestor on which the property is actually defined."
prop = args[1]
if (prop in $code_utils.builtin_props)
  return {$new_root}
elseif (`property_info(this, prop) ! E_PROPNF' == E_PROPNF)
  return 0
endif
what = this
while (valid(what))
  if (prop in properties(what))
    return {what}
  endif
  what = parent(what)
endwhile
"Impossible; show me."
raise(E_PROPNF)
"Last modified by Dax (#789) on Sat Jul 27 04:59:08 2002 MDT."
.