let
exists t ~f =
read t (
fun
()
->
Doubly_linked
.exists t.queue ~f:(
fun
kv
->
f kv.value))