anchor.diff:            yield formatError error ]
   
     override x.Parse(storeAst:bool, fileName:string, content:System.IO.TextReader, proj:MonoDevelop.Projects.Project) =
  -    if fileName = null || proj = null || not (CompilerArguments.supportedExtension(Path.GetExtension(fileName))) then null else
  +    if fileName = null || proj = null ||  not (CompilerArguments.supportedExtension(Path.GetExtension(fileName))) then null else
   
       let fileContent = content.ReadToEnd()
   
  
positive.code:   inherit TypeSystemParser()
    do Debug.WriteLine("Parsing: Creating FSharpParser")
          
    /// Format errors for the given line (if there are multiple, we collapse them into a single one)
    let formatError (error:ErrorInfo) =
        // Single error for this line
        let typ = if error.Severity = Severity.Error then ErrorType.Error
                  else ErrorType.Warning
        Error(typ, error.Message, DomRegion(error.StartLine + 1, error.StartColumn + 1, error.EndLine + 1, error.EndColumn + 1))
    
    /// To be called from the language service mailbox processor (on a 
    /// GUI thread!) when new errors are reported for the specified file
  
negative.code:                   for next in toplevel.Nested do yield processDecl next}
            doc.Add(regions)
          with _ -> Debug.Assert(false, "couldn't update navigation items, ignoring")  
          
          //also store the AST of active results if applicable                
          if storeAst then
              doc.Ast <- typedParsedResult
      
      doc.LastWriteTimeUtc <- (try File.GetLastWriteTimeUtc (fileName) with _ -> DateTime.UtcNow) 
      doc :> ParsedDocument
  