From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Wed, 19 Sep 2018 15:06:37 +0000 (-0400)
Subject: Hide counter inside closure
X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=commitdiff_plain;h=54fbe594d89513d332a82e414fc814d5e2de8815

Hide counter inside closure
---

diff --git a/compiler/src/lib/tiger/tiger_symbol.ml b/compiler/src/lib/tiger/tiger_symbol.ml
index 747cb03..a850406 100644
--- a/compiler/src/lib/tiger/tiger_symbol.ml
+++ b/compiler/src/lib/tiger/tiger_symbol.ml
@@ -5,14 +5,16 @@ type t =
   ; symbol : int
   }
 
-let counter = ref 0
+let next =
+  let counter = ref 0 in
+  fun () ->
+    incr counter;
+    !counter
 
 let symbols = H.create 16
 
 let unique_of_string name =
-  incr counter;
-  let symbol = !counter in
-  {name; symbol}
+  {name; symbol = next ()}
 
 let of_string name =
   match H.find_opt symbols name with