Extend the semantics of
6.1.1550 FIND to be:
(
c-addr --
c-addr 0 | xt 1 | xt -1 )
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.