anchor.diff:     repeat
      2drop
   
  -   #sift-count 0 to #sift-count	\ how many words were found?
  -   r> to sift-compl-only		\ restore sifting completion mode
  +   #sift-count 0 to #sift-count         \ how many words were found?
  +   r> to sift-compl-only                \ restore sifting completion mode
   ;
   
   \ 8< node sifting for tab completion on device tree nodes below this line 8<
  
positive.code:       THEN
     REPEAT
     2drop drop
     #sift-count 0 to #sift-count	\ how many words were found?
     reset-stack
  ;
  
  
negative.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
  