unification-pfa/lib/identifier.ml

type t = string [@@deriving eq, ord, show]

(** Generate new unique id *)
let fresh =
  let r = ref 0 in
  fun () ->
    let id = "id_" ^ string_of_int !r in
    incr r;
    id
;;
* Add dummy implementation * Add Identifier.t * WIP: typeof? (idk what Im doing) 2024-03-14 22:24:38 +01:00			`type t = string [@@deriving eq, ord, show]`

Add a comment 2024-03-28 17:17:47 +01:00			`(** Generate new unique id *)`
* Add dummy implementation * Add Identifier.t * WIP: typeof? (idk what Im doing) 2024-03-14 22:24:38 +01:00			`let fresh =`
			`let r = ref 0 in`
			`fun () ->`
			`let id = "id_" ^ string_of_int !r in`
			`incr r;`
			`id`
			`;;`