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