package picos

You can search for identifiers within the package.

in-package search v0.2.0

Source file `run.ml`

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