anchor.diff:          Async.StartWithContinuations (xA, xK.Success, xK.Failure, xK.Failure)} :> Job<_>
   
     let toAsync (xJ: Job<'x>) =
  -    Async.FromContinuations <| fun (x2u, e2u, _) ->
  +    Async.FromContinuations ^ fun (x2u, e2u, _) ->
         let ctx = SynchronizationContext.Current
         Worker.RunOnThisThread (initGlobalScheduler (), xJ, {new Cont_State<'x, Cont<unit>>() with
          override xK'.GetProc (wr) = Handler.GetProc (&wr, &xK'.State)
  
positive.code: 
  module BoundedMb =
    [<Obsolete "Just use the constructor.">]
    let inline create capacity = Job.thunk <| fun () ->
      BoundedMb<_> (capacity)
    let inline put (xB: BoundedMb<_>) x = xB.Put x
    let inline take (xB: BoundedMb<_>) = xB.Take
  
negative.code:           failwith "Hopac: Main synchronization context set inconsistently."
        match StaticData.main with
         | null ->
           lock typeof<StaticData> ^ fun () ->
           match StaticData.main with
            | null -> StaticData.main <- context
            | ctxt -> check ctxt
  