( 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 !
;

: vocs
\ print DF vocabularies
  cr voc-list
  begin @ dup while
          dup cell+ voc-name.
          dup 3 cells + @ 
          ?dup 
          if ."  defined in "  voc-name.
          else ."  is the main vocabulary"
          then cr
  repeat
  drop
;