From 73fa920959d22c084265fe847f4788564bf49700 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Wed, 7 May 2014 16:13:31 +0200
Subject: Achieve nothing.

---
 libs/util.ml | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 libs/util.ml

(limited to 'libs/util.ml')

diff --git a/libs/util.ml b/libs/util.ml
new file mode 100644
index 0000000..b2838b6
--- /dev/null
+++ b/libs/util.ml
@@ -0,0 +1,8 @@
+
+module VarMap = Mapext.Make(String)
+
+let rec fix f s =
+  let fs = f s in
+  if fs = s
+    then fs
+    else fix f fs
-- 
cgit v1.2.3