anchor.diff:                          let next = if index = spans.Length-1 then 0 else index+1
                           spans.[next])
                   |> Option.iter (fun span ->
  -                    view.Caret.MoveTo(span.Start) |> ignore))
  +                    textView.Caret.MoveTo(span.Start) |> ignore
  +                    textView.ViewScroller.EnsureSpanVisible(span, EnsureSpanVisibleOptions.ShowStart)))
   
       member val IsAdded = false with get, set
       member val NextTarget: IOleCommandTarget = null with get, set
  
positive.code:         loop 0 (Array.length source - 1)
  
      let gotoReference kind =
          view.TextBuffer.GetSnapshotPoint view.Caret.Position
          |> Option.iter (fun caretPos ->
              let buffer = view.TextBuffer
              let span = SnapshotSpan(buffer.CurrentSnapshot, 0, buffer.CurrentSnapshot.Length)
              let comparePosition (span: SnapshotSpan) =
                  if span.Start.Position > caretPos.Position then
  
negative.code:     | Previous
      | Next
  
  type HighlightUsageFilter(textView: IWpfTextView, 
                            referenceTagger: ITagAggregator<TextMarkerTag>) =
  
      let binarySearch compare (source: _ []) =
  