anchor.diff:  t: !io		0kia 0mgia ;
   t: FORTH	forthVoc CONTEXT ! ;
   t: DEFINITIONS	CONTEXT @ CURRENT ! ;
  -t: PRESET	TIBB 80 #TIB 2! doLIT _PARSE 'PARSE !
  -		-16 @ /GLOBALS ! -24 @ /USER ! ;
   
   \ Shell
   
  
positive.code:     SAME? 0 = IF
        2DROP NIP DUP >NAME EXIT
      THEN
      2DROP CELL+ CELL+ @ ( TODO instrument this @ to find dictionary linkage bug ) -8 AND
    REPEAT ;
  
  t: NAME? ( a -- xt na | a F )
    CONTEXT   DUP 2@ XOR IF CELL- THEN  >R \ context<>also
    BEGIN R> CELL+ DUP >R @ @ ?DUP WHILE
    find ?DUP UNTIL R> DROP EXIT THEN R> DROP 0 ;
  
  
  \ pg 35 words
  
  
negative.code:     CELL- DUP NP ! ! EXIT
    THEN $" name" THROW ;
  t: imm?		CELL+ CELL+ @ 1 AND ;
  
  t: $COMPILE	NAME? IF DUP imm? IF EXECUTE ELSE , THEN EXIT THEN
  		'NUMBER @EXECUTE IF [COMPILE] LITERAL EXIT THEN
  		THROW ;
  