anchor.diff:  
      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
  +   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
  +   current-node @ >r 0 set-node           \ now search in global words
      $tab-sift-words to #sift-count
      r> set-node
      2r> $tab-sift-nodes
  
positive.code:             dup a0 < IF 7f and handle-meta ELSE drop beep THEN
           ELSE
              insert-char
  	 THEN
        THEN
     REPEAT
     drop add-history
  
negative.code:       THEN
     REPEAT
     2drop drop
     #sift-count 0 to #sift-count         \ how many words were found?
     reset-stack
  ;
  
  