More cleaning in CArray...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15819 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/plugins/funind/merge.ml b/plugins/funind/merge.ml
index 5915d3c0d..5410e724a 100644
--- a/plugins/funind/merge.ml
+++ b/plugins/funind/merge.ml
@@ -153,7 +153,7 @@ exception Found of int
 (* Array scanning *)
 
 let array_prfx (arr: 'a array) (pred: int -> 'a -> bool): int =
-match Array.find_i pred arr with
+match Array.findi pred arr with
 | None -> Array.length arr (* all elt are positive *)
 | Some i -> i
 
@@ -931,7 +931,7 @@ let merge (id1:identifier) (id2:identifier) (args1:identifier array)
                  as above: vars may be linked inside args2?? *)
     Array.mapi
       (fun i c ->
-        match Array.find_i (fun i x -> x=c) args1 with
+        match Array.findi (fun i x -> x=c) args1 with
           | Some j -> Linked j
           | None -> Unlinked)
       args2 in