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 /printing/printer.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 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 7d9d27e81b..69fec870a3 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -288,7 +288,7 @@ let pr_concl n sigma g = (* display evar type: a context and a type *) let pr_evgl_sign gl = let ps = pr_named_context_of (evar_unfiltered_env gl) in - let _,l = List.filter2 (fun b c -> not b) (evar_filter gl,evar_context gl) in + let _, l = List.filter2 (fun b c -> not b) (evar_filter gl) (evar_context gl) in let ids = List.rev (List.map pi1 l) in let warn = if ids = [] then mt () else |