SET-CURRENT SEE SET-ORDER
SET-CURRENT ( voc -- )  
ansi 16.6.1.2195 <SEARCH-ORDER>
set the definition-vocabulary. see DEFINITIONS

reference: p4_set_current in ../src/search.c:0089, export CO SET-CURRENT