View/Edit #101:bf_toobj

Name(s): bf_toobj

1:  {what} = args
2:  if (typeof(what) == $STR && `what[1] ! E_RANGE' == "$")
3:    refobj = `this.(what[2..$]) ! E_RANGE, E_PROPNF'
4:    if (typeof(refobj) != $OBJ)
5:      return pass(@args)
6:    else
7:      return refobj
8:    endif
9:  endif
10: return pass(@args)
11: "Last modified by Dax (#789) on Wed May  4 06:44:31 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.