diff options
| author | ppedrot | 2012-11-20 18:09:47 +0000 |
|---|---|---|
| committer | ppedrot | 2012-11-20 18:09:47 +0000 |
| commit | ad3449aaf7bfed47b476f958f1c1ebfb898effc3 (patch) | |
| tree | cf1d49e3b4dd4318be30aac24c360edcc7ea7837 /pretyping/evd.ml | |
| parent | 0d825a503df4ed7dc76145a3b5a82c2e8c3c5e80 (diff) | |
Cleaning and small optimization in CList.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15988 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index c838b422da..d24509c858 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -56,7 +56,7 @@ let evar_body evi = evi.evar_body let evar_filter evi = evi.evar_filter let evar_unfiltered_env evi = Global.env_of_context evi.evar_hyps let evar_filtered_context evi = - snd (List.filter2 (fun b c -> b) (evar_filter evi,evar_context evi)) + snd (List.filter2 (fun b c -> b) (evar_filter evi) (evar_context evi)) let evar_env evi = List.fold_right push_named (evar_filtered_context evi) (reset_context (Global.env())) |