( vocs micro 11.04.2001 )

: wordlist ( -- wid )
  here voc-list @ , voc-list !
  here 0 , 0 , get-current , 0 ,
;

: also-wl ( wid -- )
  also context !
;

: vocabulary
  wordlist dup create ,
  latest l>name swap cell+ !
  does>  @ context !
;
