anchor.diff:                          | Some v -> v, false
                           | None -> 
                               let v = new Vertex(push, target.vNum)
  -                            if currentGraphV = target
  +                            if currentGraphV.vNum = target.vNum
                               then newUnprocessedGssVs.Add v
                               else target.unprocessedGssVertices.Add v
                               v, true
  
positive.code:             | None -> Error (-1, Unchecked.defaultof<'TokenType>, "There is no accepting state")
              | Some res -> 
                  let tree = new Tree<_>(terminals.ToArray(), nodes.[res], parserSource.Rules)
                  tree.AstToDot parserSource.NumToString parserSource.TokenToNumber parserSource.TokenData parserSource.LeftSide "../../../Tests/AbstractRNGLR/DOT/sppf.dot"
                  Success <| tree
negative.code:     let verticesToProcess = new Queue<_>()
      verticesToProcess.Enqueue (startV)
      let mutable errorIndex = -1
      let verticesSeenBefore = Array.init (Seq.max tokens.Vertices + 1) (fun _ -> false)
      let outEdgesInnerGraph = Array.init (Seq.max tokens.Vertices + 1) (fun _ -> [||])
      for v in innerGraph.Vertices do
          outEdgesInnerGraph.[v.vNum] <- innerGraph.OutEdges v |> Array.ofSeq
      
      let customEnqueue (elem : VInfo<_>) =
          //printf "%A" elem.vNum
          if verticesToProcess.Count = 0 || (verticesToProcess.ElementAt (verticesToProcess.Count - 1) = elem |> not)
          then
              //printfn " +"
              verticesToProcess.Enqueue(elem)
          //else printfn " -"
  
      let edgesToTerms = new Dictionary<_,_>()
      let push (currentGraphV:VInfo<_>) gssVertex state =
          let reductions = new ResizeArray<_>(10)
          let newUnprocessedGssVs = new ResizeArray<_>(2)
          for e in outEdgesInnerGraph.[currentGraphV.vNum] do
          //printfn "v(%d,%d)" state num
              let push = parserSource.Gotos.[state].[parserSource.TokenToNumber e.Tag]
              if push <> 0 
  