Rename "tiger" dir to "compiler"

[tiger.ml.git] / tiger / src / lib / tiger / tiger_symbol.ml

diff --git a/tiger/src/lib/tiger/tiger_symbol.ml b/tiger/src/lib/tiger/tiger_symbol.ml
deleted file mode 100644 (file)
index eb32942..0000000
--- a/tiger/src/lib/tiger/tiger_symbol.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-module H = MoreLabels.Hashtbl
-
-type t =
-  { name   : string
-  ; symbol : int
-  }
-
-let nextsym = ref 0
-
-let symbols = H.create 16
-
-let of_string name =
-  match H.find_opt symbols name with
-  | Some symbol ->
-      {name; symbol}
-  | None ->
-      incr nextsym;
-      let symbol = !nextsym in
-      H.replace symbols ~key:name ~data:symbol;
-      {name; symbol}
-
-let to_string {name; _} =
-  name