anchor.diff:  
   : PARSE-POS  \ ( -- caddr )
       SOURCE DROP >IN @ + ;
  -
  -\ Factored out word to start a loop over the parse area
  -: PARSE-DO
  -    SOURCE + PARSE-POS DO ;
   
   32 CONSTANT BL
   
  
positive.code: : COMPILE,  ( xt -- )                                           ( core-ext )
      , ;
  
  
  : POSTPONE
      BL WORD FIND
      IF COMPILE, ELSE ABORT"  THEN
  ; IMMEDIATE
  
  : ?PAIRS  - IF ABORT" unmatched conditionals" THEN ;
  
  \ Conditionals
  : IF    HERE POSTPONE JUMP-FALSE 0 COMPILE, 2 ; IMMEDIATE
  : ELSE  2 ?PAIRS HERE DUP ROT BACKPATCH POSTPONE JUMP 0 COMPILE, 2 ; IMMEDIATE
  : THEN  2 ?PAIRS HERE SWAP BACKPATCH ; IMMEDIATE
  
  \ Colon definitions
  : :  CREATE ] ;
  : ;  POSTPONE EXIT SMUDGE [ ; IMMEDIATE
  
  
  
  
negative.code: \ we inspect (currying and higher order functions would be nice).
  \ On the other hand, parsing is not what we do most, and especially
  \ not what will be time or power critical.
  : ?DELIM  \ ( char delimiter -- flag )
      DUP BL = IF 1+ < ELSE = THEN ;
  
  \ Parse ccc delimited by delimiter char.
  