diff options
| author | herbelin | 2003-04-07 19:29:05 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-07 19:29:05 +0000 |
| commit | d80592b3e6cee1e3bc140f3f2492de3a4e0a4d71 (patch) | |
| tree | 90ea6174eaaf27253ded839060ce6bbba7b301d0 | |
| parent | 7b8a7a735e9a4a455dd364d3a31bda228dc52a7a (diff) | |
lconstr pour genterm en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3864 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 1c19352b29..06cec0db0b 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -100,7 +100,7 @@ let gentermpr gt = (* [at_top] means ids of env must be avoided in bound variables *) let gentermpr_core at_top env t = if !Options.v7 then gentermpr (Termast.ast_of_constr at_top env t) - else Ppconstrnew.pr_constr (Constrextern.extern_constr at_top env t) + else Ppconstrnew.pr_lconstr (Constrextern.extern_constr at_top env t) let pr_cases_pattern t = if !Options.v7 then gentermpr (Termast.ast_of_cases_pattern t) else Ppconstrnew.pr_cases_pattern |