0  // Vocabulary support
 1
 2  5 ?load ghosts
 3
 4  variable lvoc forth lvoc !
 5  variable dummy hp @ dummy ! 0 h, x:FFFF h,
 6
 7  .: wlink  dummy @ hcell + 0@ ! ;
 8  .: vlink  lvoc @ 0@ tuck cell + ! lvoc ! ;
 9  .: voc.c  2 cells allot wlink vlink ;
10  .: voc.x  cell context +! context @ ! ;
11  : voc  create dp @ {{ voc.c }} drop does> voc.x ;
12
13  .: oops?  context .<>; 2 cells + ;
14  .: (;path)  .@ 0=; cell - me [[
15  .: (-voc)  cell - .@ 0<>; me [[
16  : path:  0 voc.x forth voc.x ;
17  : ;path  context @ (;path) cell - oops? context ! ;
18  : -voc  context @ (-voc) oops? context ! ;
19
20  : defs  context @ @ current ! ;
21  : forth  context r! 2 cells + r> ! ;
22
23  .wipe
2