GET-CURRENT FREE GET-ORDER
GET-CURRENT
* GET-CURRENT ( -- voc )

return the current definition vocabulary, see >DEFINITIONS

search ordinary primitive