anchor.diff:          let success = match exitCode with | 0 -> true | _ -> false
           new DiagnosticResult (success, warnings, errors) :> IDiagnosticResult
   
  -    let getProjectReference (project: Project) targetFramework configuration incomingReferences (watcher: IFileWatcher) =
  +    let getProjectReference (project: Project) targetFramework _ incomingReferences (watcher: IFileWatcher) =
           let refs, refsMap = getReferences project targetFramework incomingReferences
           let fs = makeFs refsMap
   
  
positive.code: 
      let param name value = sprintf "--%s:%s" name value
  
      let emit name sources refs outputPath emitPdb emitDocFile emitExe inMemory =
          let outExt ext = Path.Combine [|outputPath; name + ext|]
          let outputDll = outExt (if emitExe then ".exe" else ".dll")
  
  
negative.code:         let l = new obj ()
          lock l fn
  
      //let tprintf fmt = Printf.ksprintf System.Diagnostics.Trace.Write fmt
      let tprintf _ = ignore
  
      //let tprintfn fmt = Printf.ksprintf System.Diagnostics.Trace.WriteLine fmt
      let tprintfn _ = ignore
  
      let getReferences _ _ incomingReferences =
          //let name = project.Name
  
          let makePath p = "C:\\" + p + ".dll"
  
  