Find the definition named in the counted string at c-addr. If the definition is not found after searching all the word lists in the search order, return c-addr and zero. If the definition is found, return xt. If the definition is immediate, also return one (1); otherwise also return minus-one (-1). For a given string, the values returned by FIND while compiling may differ from those returned while not compiling.
contextare defined as per E.18.104.22.1687 GET-ORDER.
0 ( c-addr 0 )
#order @ 0 ?DO
OVER COUNT ( c-addr 0 c-addr' u )
I CELLS context + @ ( c-addr 0 c-addr' u wid )
SEARCH-WORDLIST ( c-addr 0; 0 | w 1 | q -1 )
?DUP IF ( c-addr 0; w 1 | w -1 )
2SWAP 2DROP LEAVE ( w 1 | w -1 )
THEN ( c-addr 0 )
LOOP ( c-addr 0 | w 1 | w -1 )