From 4e1135fb315eab7bede3861e83e0ced74cf60ed3 Mon Sep 17 00:00:00 2001
From: Xavier Clerc
Date: Thu, 25 Sep 2014 11:02:00 +0200
Subject: Remove some 'deprecated' warnings.

---
 lib/int.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/int.ml b/lib/int.ml
index 1403dc510f..c8786c8a2d 100644
--- a/lib/int.ml
+++ b/lib/int.ml
@@ -64,7 +64,7 @@ struct
   | Root of 'a option array
   | DSet of int * 'a option * 'a t
 
-  let empty n = ref (Root (Array.create n None))
+  let empty n = ref (Root (Array.make n None))
 
   let rec rerootk t k = match !t with
   | Root _ -> k ()
-- 
cgit v1.2.3