16.6.1.2195
SET-CURRENT
 
SEARCH
 
( wid -- )

Set the compilation word list to the word list identified by wid.

Testing:
T{ GET-CURRENT -> wid1 @ }T

T{ WORDLIST wid2 ! -> }T
T{ wid2 @ SET-CURRENT -> }T
T{ GET-CURRENT -> wid2 @ }T

T{ wid1 @ SET-CURRENT -> }T