GET-CURRENT F~ GET-ORDER
GET-CURRENT ( -- voc )  
ansi 16.6.1.1643 <SEARCH-ORDER>
return the current definition vocabulary, see DEFINITIONS

reference: p4_get_current in ../src/search.c:0047, export CO GET-CURRENT