anchor.diff:  
   	\ Global Pointer Relative forward reference prefix for LOADs.
   : GL> ( -- 0 : "word" )
  -	>IN @
  -	lookup IF
  -		>BODY
  -		DUP @ ['] fwd = NOT ABORT" Shadowing existing word or label"
  -		NIP
  -	ELSE
  -		DROP >IN !
  -		newdesc
  -	THEN
  -	glreloc 0 ;
  +	['] glreloc (>) 0 ;
   
   	\ Global Pointer Relative back-reference to an already defined
   	\ symbol for LOADs and STOREs.
  
positive.code: 		DROP >IN !
  		newdesc
  	THEN
  	absreloc 0 ;
  
  	\ Fixes up a GP-relative offset for LOAD instructions.
  : fixup-gl ( a -- )
  	LC OVER 3 CELLS + @ - 4095 AND 20 LSHIFT >R
  	2 CELLS + @ DUP IW@ CR .S R> + .S SWAP IW! ;
  
  	\ glreloc creates an global pointer-relative relocation record in the
  	\ Forth dictionary.
  
negative.code: : lookup ( -- xt f )
  	BL WORD FIND ;
  
  	\ Handle a generic forward reference.
  : (>) ( xt -- : "word" )
  	>IN @
  	lookup IF
  		>BODY
  