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

ContributeContributions