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

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