Source file fresh.ml

1
2
3
4
5
6
7
8
9
(* Global counter for unique identifiers *)

let tick = ref 0
let refresh () = tick := 0

let fresh () =
  let id = !tick in
  tick := id + 1;
  id