find
search wordlists
Stackeffects
( addr -- [ addr 0 ] | [ xt [-1|1]] )R( -- )
Definition
: find
0 (literal) NUMWORDLISTS 0 (?do)
PFA_FIND1:
over count (literal) EE_ORDERLIST i 2* + e@ dup (literal) -1 =
(?branch) PFA_FIND3
drop drop drop leave
PFA_FIND3:
search-wordlist ?dup
(?branch) PFA_FIND4
>r >r drop drop r> r> leave
PFA_FIND4:
(loop) PFA_FIND1
PFA_FIND2:
;