\ lib/vocabulary.frt

\ create a vocabulary, at runtime replace
\ the first entry in the search-list
: vocabulary ( "char" -- )
    wordlist constant
    does>
    i@ >r
    get-order swap drop 
    r> swap
    set-order
;