anchor.diff:        dumbAtom := allAtoms[atomI];
   
         done    := false;
  +
  +      if dumbAtom.typed = nonterminal then
  +        inc(nonTermI);
   
         while done = false do
         begin
  
positive.code:               begin {That option was a winner}
                  matched := true;
                  parsedLen := parsedLen + i;
                  break;
  
                  {
  
negative.code:   partial := false;
    child := new(PParseNode);
    Node := nil;
    nonTermI := 0;
    setlength(child.children, 0);
    child.point := inNode;
    child.nonTermNum := 0;
    //dumbAtom := innode.RHS;
    parsedLen := 1;
    dumbAtom := innode.RHS[0];
  