Action<obj>(fun _->

if latch.Enter()then

match!rwhwith

| None->()

| Some rwh-> rwh.Unregister(null)|> ignore

lock rwh(fun()->

match!rwhwith

| None->()

| Some rwh-> rwh.Unregister(null)|> ignore)

Async.Start(async{do(aux.ccont(OperationCanceledException())|> unfake)}))

and registration: CancellationTokenRegistration= aux.token.Register(cancelHandler,null)

and registration: CancellationTokenRegistration= aux.token.Register(cancelHandler,null)

letsavedCont= args.cont

rwh:= Some(ThreadPool.RegisterWaitForSingleObject

(waitObject=waitHandle,

callBack=WaitOrTimerCallback(fun _ timeOut->

if latch.Enter()then

rwh:= None

registration.Dispose()

aux.trampolineHolder.Protect(fun()-> savedCont(not timeOut))|> unfake),

state=null,

millisecondsTimeOutInterval=millisecondsTimeout,

executeOnlyOnce=true));

FakeUnit

lock rwh(fun()->

rwh:= Some(ThreadPool.RegisterWaitForSingleObject

(waitObject=waitHandle,

callBack=WaitOrTimerCallback(fun _ timeOut->

if latch.Enter()then

lock rwh(fun()-> rwh.Value.Value.Unregister(null)|> ignore)

rwh:= None

registration.Dispose()

aux.trampolineHolder.Protect(fun()-> savedCont(not timeOut))|> unfake),

state=null,

millisecondsTimeOutInterval=millisecondsTimeout,

executeOnlyOnce=true));

FakeUnit)

if latch.Enter()then reraise()// reraise exception only if we successfully enter the latch (no other continuations were called)

if latch.Enter()then

registration.Dispose()

reraise()// reraise exception only if we successfully enter the latch (no other continuations were called)

else FakeUnit