diff options
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 |