16.6.2.1590 FORTH SEARCH EXT

( -- )

Transform the search order consisting of wid_n, ... wid₂, wid₁ (where wid₁ is searched first) into wid_n, ... wid₂, wid_{FORTH-WORDLIST}.

: (wordlist) ( wid "<name>" -- ; )
   CREATE ,
   DOES>
     @ >R
     GET-ORDER NIP
     R> SWAP SET-ORDER
;

FORTH-WORDLIST (wordlist) FORTH