1 module H = MoreLabels.Hashtbl
10 let symbols = H.create 16
12 let unique_of_string name =
14 let symbol = !counter in
18 match H.find_opt symbols name with
22 let t = unique_of_string name in
23 H.replace symbols ~key:t.name ~data:t.symbol;
26 let to_string {name; _} =
29 let is_equal {symbol=s1; _} {symbol=s2; _} =
32 let show {name; symbol} =
33 Printf.sprintf "Symbol[%S, %d]" name symbol