anchor.diff:      [<Obsolete "`Async.ofJobOn` will be removed as interop primitives and scheduling are being revised. Use `Job.toAsync`.">]
       let ofJobOn (sr: Scheduler) (xJ: Job<'x>) =
         assert (null <> sr)
  -      Async.FromContinuations <| fun (x2u, e2u, _) ->
  +      Async.FromContinuations ^ fun (x2u, e2u, _) ->
           let ctx = SynchronizationContext.Current
           Worker.RunOnThisThread (sr, xJ, {new Cont_State<'x, Cont<unit>>() with
            override xK'.GetProc (wr) = Handler.GetProc (&wr, &xK'.State)
  
positive.code:     let inline increment (l: Latch) = l.Increment ()
    let inline decrement (l: Latch) = l.Decrement ()
    let inline await (l: Latch) = l :> Alt<_>
    let within (l2xJ: Latch -> #Job<'x>) = Job.delay <| fun () ->
      let l = Latch 1
      Job.tryFinallyJob
        (Job.delayWith l2xJ l)
        (decrement l >>=. l)
    let holding (l: Latch) (xJ: Job<'x>) = Job.delay <| fun () ->
      Now.increment l
      Job.tryFinallyJob xJ (decrement l)
    let queue (l: Latch) (xJ: Job<unit>) = Job.delay <| fun () ->
      Now.increment l
      Job.queue (Job.tryFinallyJob xJ (decrement l))
    let queueAsPromise (l: Latch) (xJ: Job<'x>) = Job.delay <| fun () ->
      Now.increment l
      Promise.queue (Job.tryFinallyJob xJ (decrement l))
  
  
negative.code:     Condition.Wait (xK', &xK'.State2)
      match xK'.State1 with
       | null -> xK'.Value
       | e -> raise ^ Exception ("Exception raised by job", e)
  
    let wait (sr: Scheduler) =
      if sr.NumActive > 0 then
  