@verb #101:"bf_toobj" this none this rxdo #60
@program #101:"bf_toobj" this none this
{what} = args
if (typeof(what) == $STR && `what[1] ! E_RANGE' == "$")
  refobj = `this.(what[2..$]) ! E_RANGE, E_PROPNF'
  if (typeof(refobj) != $OBJ)
    return pass(@args)
  else
    return refobj
  endif
endif
return pass(@args)
"Last modified by Dax (#789) on Wed May  4 06:44:31 2005 MDT."
.