anchor.diff:    module internal FSharpAssemblyHelper =
         open System.IO
         let checker = FSharpChecker.Create()
  -      
  +
         let sysDir =
           let isWindows = System.Environment.OSVersion.Platform = System.PlatformID.Win32NT
           let refDir = @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0"
  
positive.code:           let options = checker.GetProjectOptionsFromCommandLineArgs(projFileName, args)
            
            let results = checker.ParseAndCheckProject(options) |> Async.RunSynchronously
            if results.HasCriticalErrors then
                let builder = new System.Text.StringBuilder()
                for err in results.Errors do
                    builder.AppendLine(sprintf "**** %s: %s" (if err.Severity = Microsoft.FSharp.Compiler.FSharpErrorSeverity.Error then "error" else "warning") err.Message)
                    |> ignore
                let errorMsg = builder.ToString()
                Log.errorf "Parsing and checking project failed: %s" errorMsg
                failwith errorMsg
            else
                for err in results.Errors do
                    Log.warnf "**** %s: %s" (if err.Severity = Microsoft.FSharp.Compiler.FSharpErrorSeverity.Error then "error" else "warning") err.Message
  
            let references = results.ProjectContext.GetReferencedAssemblies()
            references
        let referenceMap references =
  
negative.code:   let critf f = traceEventf TraceEventType.Critical f
    let verbf f = traceEventf TraceEventType.Verbose f
  
    let formatArgs (args:_ seq) = 
      System.String.Join("\n  ", args)
      |> sprintf "\n  %s" 
    let formatPaths paths =
      System.String.Join("\n  ", paths |> Seq.map (sprintf "\"%s\""))
      |> sprintf "\n[ %s ]"
  
  open Env
  [<AutoOpen>]
  