anchor.diff:              dup a0 < IF 7f and handle-meta ELSE drop beep THEN
            ELSE
               insert-char
  -	 THEN
  +         THEN
         THEN
      REPEAT
      drop add-history
  
positive.code: 
     dup IF bl rsplit dup IF 2swap THEN ELSE 0 0 THEN >r >r
  
     0 dup to tab-last-len to tab-last-adr	\ reset last possible match
     current-node @ IF			\ if we are in a node?
        2dup 2>r				\ save text
        $tab-sift-words to #sift-count	\ search in current node first
        2r>				\ fetch text to complete, again
     THEN
     2dup 2>r
     current-node @ >r 0 set-node		\ now search in global words
     $tab-sift-words to #sift-count
     r> set-node
     2r> $tab-sift-nodes
  
negative.code:       THEN
     REPEAT
     2drop drop
     #sift-count 0 to #sift-count         \ how many words were found?
     reset-stack
  ;
  
  