From 057989919d2f319d4cbcd70e9ffb195f0530885a Mon Sep 17 00:00:00 2001
From: Steven de Oliveira <de.oliveira.steven@gmail.com>
Date: Wed, 18 Oct 2023 14:39:24 +0200
Subject: [PATCH] Format

---
 src/lib/util/hstring.ml | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/src/lib/util/hstring.ml b/src/lib/util/hstring.ml
index 67264f632a..a03956a238 100644
--- a/src/lib/util/hstring.ml
+++ b/src/lib/util/hstring.ml
@@ -58,29 +58,11 @@ let rec list_assoc x = function
   | [] -> raise Not_found
   | (y, v) :: l -> if equal x y then v else list_assoc x l
 
-(* let fresh_string, reset_fresh_string_cpt =
- *   let cpt = ref 0 in
- *   let fresh_string () =
- *     incr cpt;
- *     "!k" ^ (string_of_int !cpt)
- *   in
- *   let reset_fresh_string_cpt () =
- *     cpt := 0
- *   in
- *   fresh_string, reset_fresh_string_cpt
- * 
- * let is_fresh_string s =
- *   try s.[0] == '!' && s.[1] == 'k'
- *   with Invalid_argument s ->
- *     assert (String.compare s "index out of bounds" = 0);
- *     false *)
-
 let save_cache () =
   HC.save_cache ()
 
 let reinit_cache () =
   HC.reinit_cache ()
-  (* reset_fresh_string_cpt () *)
 
 module Arg = struct type t'= t type t = t' let compare = compare end
 module Set : Set.S with type elt = t = Set.Make(Arg)