anchor.diff:          lexeredText <- LexString (SourceBuffer.CurrentSnapshot.GetText())
           let currentPosition = start.Position //shows the number of chars before the cursor position
           let hasTheCurrentPosition t =
  -                match t with
  -                | LPAREN (x) -> (x.Start.AbsoluteOffset = currentPosition)
  -                | _ -> false
  +            match t with
  +            | LPAREN (x) -> (x.Start.AbsoluteOffset = currentPosition)
  +            | _ -> false
           let isParenthesisToken t =
               match t with
               | LPAREN (x) -> (x.Start.AbsoluteOffset > currentPosition)
  
positive.code: type BraceMatchingTagger (view : ITextView, sourceBuffer : ITextBuffer) as self =
      let mutable View : ITextView = null
      let mutable SourceBuffer : ITextBuffer = null
      let mutable CurrentChar : Nullable<SnapshotPoint> = new Nullable<SnapshotPoint>() //is this right?
      let mutable lexeredText = null
  
      let getTags (spans : NormalizedSnapshotSpanCollection) =
          Seq.empty
  
      let TagsChanged = new Event<_>()
          
  
      let UpdateAtCaretPosition (position : CaretPosition) =
          CurrentChar <- position.Point.GetPoint(SourceBuffer, position.Affinity)
  
negative.code: 
      interface ITagger<TextMarkerTag> with
          member self.GetTags spans = getTags spans
          member self.add_TagsChanged x =
             Event.add (fun arg -> x.Invoke(self,arg)) TagsChanged.Publish
          member self.remove_TagsChanged x = ()