From 067aa9a444b7d13733c8ca1cf52d6d73e105dec0 Mon Sep 17 00:00:00 2001
From: barras
Date: Tue, 18 Mar 2008 13:30:57 +0000
Subject: improved the implementation of rtree

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10691 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 29edaf3073..ce336ac34c 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -741,6 +741,11 @@ let array_map_left_pair f a g b =
     r, s
   end
 
+let array_iter2 f v1 v2 =
+  let n = Array.length v1 in
+  if Array.length v2 <> n then invalid_arg "array_iter2"
+  else for i = 0 to n - 1 do f v1.(i) v2.(i) done
+
 let pure_functional = false
 
 let array_fold_map' f v e =
-- 
cgit v1.2.3