anchor.diff:                  LoggingService.LogDebug ("FSharpParser: Running ParseAndCheckFileInProject for {0}", shortFilename)
                   let projectFile = proj |> function null -> filePath | proj -> proj.FileName.ToString()
                   let! results = languageService.ParseAndCheckFileInProject(projectFile, filePath, 0, content.Text, isObsolete)
  -
  +                LoggingService.LogDebug ("FSharpParser: Parse and check results retieved on {0}", shortFilename)
                   results.GetErrors() |> (Seq.map formatError >> doc.AddRange)
   
                   //Try creating tokens
  +                LoggingService.LogDebug ("FSharpParser: Processing tokens on {0}", shortFilename)
                   try
                     let readOnlyDoc = TextEditorFactory.CreateNewReadonlyDocument (parseOptions.Content, fileName)
                     let lineDetails =
  
positive.code: type FSharpParsedDocument(fileName) = 
      inherit DefaultParsedDocument(fileName)
      member val Tokens = None with get,set
      member val AllSymbolUses = None with get,set
  
  // An instance of this type is created by MonoDevelop (as defined in the .xml for the AddIn) 
  type FSharpParser() = 
  
negative.code:                   LoggingService.LogWarning ("FSharpParser: Couldn't update token information", ex)
                  
                  //Get all the symboluses now rather than in semantic highlighting
                  LoggingService.LogDebug ("FSharpParser: Processing symbol uses on {0}", shortFilename)
                  let! allSymbolUses = results.GetAllUsesOfAllSymbolsInFile()
                  match allSymbolUses with
                  | Some su ->
                    su
                    |> Array.iter 
                         (fun s -> if not (doc.AllSymbolsKeyed.ContainsKey s.RangeAlternate.End)
                                   then doc.AllSymbolsKeyed.Add(s.RangeAlternate.End, s))
                  | None -> ()
  
                  //Set code folding regions, GetNavigationItems may throw in some situations
                  LoggingService.LogDebug ("FSharpParser: processing regions on {0}", shortFilename)
                  try 
                    let regions = 
                      let processDecl (decl : SourceCodeServices.FSharpNavigationDeclarationItem) = 
  