@verb #6570:"get_ref" this none this rxdo #2633
@program #6570:"get_ref" this none this
"Copied from reference database (#105):has_property_with_value by Slacker (#55)Oct 13 01:00:37 2000"
for p in ({@#101:ancestors(), #0, #101})
  for x in (properties(p))
    if (`p.(x) == args[1] ! ANY => 0')
      return x
    endif
  endfor
endfor
"Last modified by Eve (#2633) on Sun Oct 15 17:46:30 2000 MDT."
.