15 lines
300 B
OCaml
15 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)
|