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