anchor.diff:                  result)
   
           let getTempPath () =
  -            Path.Combine(Path.GetTempPath (), project.Name, (System.Guid.NewGuid ()).ToString ())
  +            let path = Path.GetTempPath()
  +            let temp = path ()
  +            Path.Combine(temp, project.Name, (System.Guid.NewGuid ()).ToString ())
   
           let withTemp fn = fun () ->
               let path = getTempPath ()
  
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"
  
  