anchor.diff:  
       type FSharpSpanParser(mode:SyntaxMode, spanStack, defines: string list) =
           inherit SyntaxMode.SpanParser(mode, spanStack)
  -        do
  -            LoggingService.LogInfo("Creating FSharpSpanParser()")
  +        do LoggingService.LogDebug ("Creating FSharpSpanParser()")
   
           member private this.ScanPreProcessorElse(i: byref<int>) =
               if not (spanStack |> contains (fun span -> span.GetType() = typeof<IfBlockSpan>)) then
  
positive.code:     let mutable semanticHighlightingEnabled = PropertyService.Get ("EnableSemanticHighlighting", true)
      let mutable symbolsInFile: FSharpSymbolUse[] option = None
  
      let HandlePropertyChanged (eventArgs: PropertyChangedEventArgs) =
          if eventArgs.Key = "EnableSemanticHighlighting" then
              semanticHighlightingEnabled <- PropertyService.Get ("EnableSemanticHighlighting", true)
  
      let getDefineSymbols (project: MonoDevelop.Projects.Project option) =
          [ let workspace = IdeApp.Workspace
  
negative.code:             match (this.Document, line, offset, length, style) with
              | ExcludedCode styleName -> Seq.singleton(Chunk(offset,length,styleName))
              | PreProcessorCode _ -> base.GetChunks(style,line,offset,length)
              | OtherCode (_,lineText) when semanticHighlightingEnabled -> getLexedTokens(style,line,offset,lineText,extraColorInfo)
              | _ -> base.GetChunks(style,line,offset,length)
          with
              | exn ->
                  LoggingService.LogError("Error in FSharpSyntaxMode.GetChunks", exn)
                  base.GetChunks(style,line,offset,length)
  
      interface IDisposable with
          member x.Dispose () =
              propertyChangedHandler.Dispose ()
              documentParsedHandler.Dispose ()
              configHandler |> Option.iter (fun ch -> ch.Dispose ())