anchor.diff:      member val AllSymbolsKeyed = Dictionary<_,_>() with get, set
   
   module ParsedDocument =
  -  let create (parseOptions: ParseOptions, parseResults: ParseAndCheckResults, defines) =
  +  let create (parseOptions: ParseOptions) (parseResults: ParseAndCheckResults) defines =
       //Try creating tokens
       async {
         let fileName = parseOptions.FileName
  
positive.code:           if error.Severity = FSharpErrorSeverity.Error then ErrorType.Error
            else ErrorType.Warning
          Error(errorType, String.wrapText error.Message 80, DocumentRegion (error.StartLineAlternate, error.StartColumn + 1, error.EndLineAlternate, error.EndColumn + 1))
  
        parseResults.GetErrors() |> (Seq.map formatError >> doc.AddRange)
        let! allSymbolUses = parseResults.GetAllUsesOfAllSymbolsInFile()
        match allSymbolUses with
        | Some symbolUses ->
          for symbolUse in symbolUses do
            if not (doc.AllSymbolsKeyed.ContainsKey symbolUse.RangeAlternate.End)
            then doc.AllSymbolsKeyed.Add(symbolUse.RangeAlternate.End, symbolUse)
        | None -> ()
  
        //Set code folding regions, GetNavigationItems may throw in some situations
        LoggingService.LogDebug ("FSharpParser: processing regions on {0}", shortFilename)
  
negative.code:       with ex -> LoggingService.LogWarning ("FSharpParser: Couldn't update navigation items.", ex)
        //Store the AST of active results
        doc.Ast <- parseResults
        doc.LastWriteTimeUtc <- try File.GetLastWriteTimeUtc(fileName) with _ -> DateTime.UtcNow
        return doc :> ParsedDocument
      }
  
  // An instance of this type is created by MonoDevelop (as defined in the .xml for the AddIn) 
  