From d80592b3e6cee1e3bc140f3f2492de3a4e0a4d71 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 7 Apr 2003 19:29:05 +0000
Subject: lconstr pour genterm en v8

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3864 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3