X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_env.ml;fp=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_env.ml;h=504e9bde71f5d3c9bb5f76b0a1fc20f20d1a64b8;hp=1e4cd1d03d9d401582d679453851e4744e77734a;hb=fd2204fa98928a900f303209818dce7f2bae3c8a;hpb=35dccbd3999a8c3bb1dc9e96e21b69a39f44fc6f

diff --git a/compiler/src/lib/tiger/tiger_env.ml b/compiler/src/lib/tiger/tiger_env.ml
index 1e4cd1d..504e9bd 100644
--- a/compiler/src/lib/tiger/tiger_env.ml
+++ b/compiler/src/lib/tiger/tiger_env.ml
@@ -28,7 +28,7 @@ let set_val t k v =
   {t with vals = Map.set t.vals ~k ~v}
 
 let loop_begin t =
-  let loop = Sym.new_of_string "loop" in
+  let loop = Sym.unique_of_string "loop" in
   let t = {t with loop = Some loop} in
   (loop, t)