diff options
| author | ppedrot | 2013-10-22 17:26:28 +0000 |
|---|---|---|
| committer | ppedrot | 2013-10-22 17:26:28 +0000 |
| commit | e792b4a6b0a9a279293ff7ff5748bc61d2116ce6 (patch) | |
| tree | 0c745d58f1a1a76fc89b9b61bdf5df87dd47eaed /lib | |
| parent | 14b6df0f5a23a231ade989bb1e3dab0f657d1fab (diff) | |
Optimizing evar filters. It seems to cost quite a lot in unification,
as witnessed by profiling on time-consuming files. I suspect we can
do better by using a smarter representation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16912 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/cList.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/cList.ml b/lib/cList.ml index 643ef7f2bd..2cc5e4cfd3 100644 --- a/lib/cList.ml +++ b/lib/cList.ml @@ -600,11 +600,11 @@ let map_filter_i f = match f i x with None -> l' | Some y -> y::l' in aux 0 -let filter_along f filter l = - snd (filter2 (fun b c -> f b) filter l) - -let filter_with filter l = - filter_along (fun x -> x) filter l +let rec filter_with filter l = match filter, l with +| [], [] -> [] +| true :: filter, x :: l -> x :: filter_with filter l +| false :: filter, _ :: l -> filter_with filter l +| _ -> invalid_arg "List.filter_with" let subset l1 l2 = let t2 = Hashtbl.create 151 in |