anchor.diff:                          computation)
               |> unfake
   
  -            commit (resultCell.TryWaitForResultSynchronously() |> Option.get)
  +            let res = resultCell.TryWaitForResultSynchronously().Value
  +            res.Commit()
   
           let RunSynchronously (token:CancellationToken,computation,timeout) =
               // Reuse the current ThreadPool thread if possible. Unfortunately
  
positive.code:                 (fun _ -> ts.SetCanceled()), 
                  token)
              task
          static member StartImmediate(computation:Async<unit>, ?cancellationToken) : unit =
              let token = defaultArg cancellationToken defaultCancellationTokenSource.Token
              AsyncPrimitives.StartWithContinuations(token, computation, id, (fun edi -> edi.ThrowAny()), ignore)
  
negative.code:             else
                  ctxt.aux.trampolineHolder.HijackCheck ctxt.cont result
  
          /// Call the exception continuation directly
          member ctxt.CallExceptionContinuation edi =
              ctxt.aux.econt edi
  
  