package granary
Source file parallel.ml
1 2let available () = Domain.recommended_domain_count () > 1 let run ~parallel ~sequential = if available () then parallel () else sequential ()
parallel.ml1 2let available () = Domain.recommended_domain_count () > 1 let run ~parallel ~sequential = if available () then parallel () else sequential ()