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