mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-12-22 20:33:36 +01:00
14 lines
276 B
OCaml
14 lines
276 B
OCaml
(* Single process function *)
|
|
let run_sequential f stream =
|
|
|
|
let rec next _ =
|
|
try
|
|
let task = Stream.next stream in
|
|
Some (f task)
|
|
with Stream.Failure -> None in
|
|
Stream.from next
|
|
|
|
let run ?(ordered=true) ?(comm) ~f stream =
|
|
run_sequential f stream
|
|
|