anchor.diff:      SAME? 0 = IF
         2DROP NIP DUP >NAME EXIT
       THEN
  -    2DROP CELL+ CELL+ @ ( TODO instrument this @ to find dictionary linkage bug ) -8 AND
  +    2DROP CELL+ CELL+ @ -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 ;
  -
  +  BEGIN R> CELL+ DUP >R @ ?DUP WHILE
  +  @ find ?DUP UNTIL R> DROP EXIT THEN R> DROP 0 ;
   
   \ pg 35 words
   
  
positive.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 ;
  
negative.code: 	next,
  tend-code
  
  t: PRESET	SP@ SP0 !
  		doLIT ?rx '?KEY !
  		doLIT EMIT 'EMIT !
  		doLIT accept 'EXPECT !
  