get-order
Get the current search order list
Stackeffects
( -- widn .. wid0 n )R( -- )
Definition
: get-order
(literal) NUMWORDLISTS dup 0 swap (do)
PFA_GET_ORDER1:
(literal) EE_ORDERLIST i 2* + e@ dup (literal) -1 =
(?branch) PFA_GET_ORDER3
drop 1-
(branch) PFA_GET_ORDER4
PFA_GET_ORDER3:
swap
PFA_GET_ORDER4:
(literal) -1
(+loop) PFA_GET_ORDER1
PFA_GET_ORDER2:
1+
;