diff options
| author | ppedrot | 2013-10-27 15:02:43 +0000 |
|---|---|---|
| committer | ppedrot | 2013-10-27 15:02:43 +0000 |
| commit | 4c2302a2db3da1095ce9167ad0e4956defd3947f (patch) | |
| tree | f528bcab8e1d39b741cd3b88df74733e37f78c09 /printing/printer.ml | |
| parent | d28285fa1c05297c7618a887b1758e283a9ebe64 (diff) | |
Abstracting evar filter away. The API is not perfect, but better than nothing.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16939 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 2038fdeaa7..47b52b72b1 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -357,7 +357,8 @@ 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_env gl) in - let _, l = List.filter2 (fun b c -> not b) (evar_filter gl) (evar_context gl) in + let f = Filter.repr (evar_filter gl) in + let _, l = List.filter2 (fun b c -> not b) f (evar_context gl) in let ids = List.rev_map pi1 l in let warn = if List.is_empty ids then mt () else |