anchor.diff:          let tokens = 
               List.unfold (scanToken tokenizer) 0L
               |> List.map (makeChunk line.LineNumber style offset)
  -        tokens |> Seq.ofList
  +        tokens
   
       let propertyChangedHandler = PropertyService.PropertyChanged.Subscribe handlePropertyChanged
       let documentParsedHandler = document.DocumentParsed.Subscribe handleDocumentParsed
  
positive.code:                         let span = EndIfBlockSpan()
                          if this.CurSpan <> null && typeof<AbstractBlockSpan>.IsAssignableFrom(this.CurSpan.GetType()) then
                              this.FoundSpanEnd.Invoke(this.CurSpan, i, 0)
                          this.FoundSpanBegin.Invoke(span, i + textOffset, 6)
                          this.FoundSpanEnd.Invoke(span, i + textOffset + 6, 0)
                          true
                      elif (this.CurSpan = null || (this.CurSpan <> null && this.CurSpan.Color <> "Excluded Code")) then
                          let spanLength = 
  
negative.code:         else
              None
  
      let containsFunctionDef (subText : string) =
          let endOfBlockDef = subText.IndexOf( '*')
          subText.IndexOf ( ')', endOfBlockDef) <> -1
  
      let (|FoundBlockCommentBegin|_|) (subText: string, _curSpan, state: SpanParserState, i:int, len:int) =
          if (subText.StartsWith(openBlockComment) && state = General && not (containsFunctionDef subText)) then
              let newState = Comment
              let spanBegin = CommentSpan(), i, len
              let newi = i+2
  