Source file `common.ml`

1
2
3
4
5
6
7
8
9
10
11
12
let available =
  match Sys.backend_type with
  | Native ->
    (* (match Sys.unix with
     *  | false -> false
     *  | true ->
     *    (match Sys.architecture with
     *     | "amd64" | "arm64" -> true
     *     | _ -> false)) *)
    Sys.unix
  | Bytecode | Other _ -> false
;;