X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_symbol.ml;h=f1dc51a82ea61bf75fc7efa99d967fc85d47934d;hp=eb32942e227ac09ca926df0eb2a9d78c678645bc;hb=cbb4ffb6428f52eaea42f6039332af0c392cdd0f;hpb=d5517328dcf93c5bd74f1895262e47b70d2e4313

diff --git a/compiler/src/lib/tiger/tiger_symbol.ml b/compiler/src/lib/tiger/tiger_symbol.ml
index eb32942..f1dc51a 100644
--- a/compiler/src/lib/tiger/tiger_symbol.ml
+++ b/compiler/src/lib/tiger/tiger_symbol.ml
@@ -21,3 +21,6 @@ let of_string name =
 
 let to_string {name; _} =
   name
+
+let is_equal {symbol=s1; _} {symbol=s2; _} =
+  s1 = s2