jon.recoil.org

Source file intable.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(** Functor that adds integer conversion functions to a module. *)

open! Import

module type S = sig
  type t

  val of_int_exn : int -> t
  val to_int_exn : t @ local -> int
end

module type S_with_zero_alloc = sig
  type t

  val of_int_exn : int -> t [@@zero_alloc]
  val to_int_exn : t @ local -> int [@@zero_alloc]
end