16 lines
300 B
OCaml
16 lines
300 B
OCaml
|
open HopixAST
|
||
|
|
|
||
|
|
module LabelSet = Set.Make (struct
|
||
|
|
type t = label
|
||
|
|
let compare = compare
|
||
|
|
end)
|
||
|
|
|
||
|
|
module TypeVariableSet = Set.Make (struct
|
||
|
|
type t = type_variable
|
||
|
|
let compare = compare
|
||
|
|
end)
|
||
|
|
|
||
|
|
let fresh_identifier =
|
||
|
|
let count = ref (-1) in
|
||
|
|
fun () -> incr count; Id ("id" ^ string_of_int !count)
|