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 /pretyping/evarconv.ml | |
| 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 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index b4388ff089..44138a8ee1 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -720,7 +720,7 @@ let second_order_matching ts env_rhs evd (evk,args) argoccs rhs = | Some _ -> error "Selection of specific occurrences not supported" | None -> let evty = set_holes evdref cty subst in - let _, instance = List.filter2 (fun b c -> b) filter instance in + let instance = List.filter_with filter instance in let evd,ev = new_evar_instance sign !evdref evty ~filter instance in evdref := evd; evsref := (fst (destEvar ev),evty)::!evsref; |