diff options
| author | barras | 2002-02-07 16:07:34 +0000 |
|---|---|---|
| committer | barras | 2002-02-07 16:07:34 +0000 |
| commit | 296faec482d17f9bfdc419f79ed565ecd8035e60 (patch) | |
| tree | 410123e747a8b3f3ca44aacb86f241c10360257a /parsing/printer.ml | |
| parent | 85bdcf8b1ca9b515d848878537755069ed03fd27 (diff) | |
petit nettoyage de kernel/inductive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2460 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 3076213e59..dcabd954c3 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -128,8 +128,9 @@ let pr_ref_label = function (* On triche sur le contexte *) let pr_cases_pattern t = gentermpr (Termast.ast_of_cases_pattern t) let pr_rawterm t = gentermpr (Termast.ast_of_rawconstr t) -let pr_pattern_env env t = gentermpr (Termast.ast_of_pattern env t) -let pr_pattern t = pr_pattern_env empty_names_context t +let pr_pattern_env tenv env t = + gentermpr (Termast.ast_of_pattern tenv env t) +let pr_pattern t = pr_pattern_env (Global.env()) empty_names_context t let rec gentacpr gt = Esyntax.genprint default_tacpr tactic_syntax_universe tactic_initial_prec gt |