1
2
3
4
5
6
7
8
9
10
11
12
let all actions =
Bundle.join_after @@ fun bundle -> List.iter (Bundle.fork bundle) actions
let any actions =
if actions == [] then Control.block ()
else
Bundle.join_after @@ fun bundle ->
actions
|> List.iter @@ fun action ->
Bundle.fork bundle @@ fun () ->
action ();
Bundle.terminate bundle