anchor.diff:  : refill
       source-id 0= dup
       if
  -        tib d# 128 accept
  -        sourceC !
  -        tib sourceA !
  +        tib dup d# 128 accept
  +        source!
           d# 0 >in !
       then
   ;
  
positive.code:     
  ;
  
  header-imm 2literal
  : 2literal
      swap tliteral tliteral
  ;
  
  header-imm postpone
  
negative.code: 
  : doubleAlso,
      (doubleAlso)
      execute
  ;
  
  : dispatch
  