From 8eb1626a3b5fdd9d0e455c8507210b6a83ea9213 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 4 Dec 2003 17:24:01 +0000
Subject: Symetrisation parsing/printing 'abstract'

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5066 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 translate/pptacticnew.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'translate')

diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml
index 327ec7d08..5fce8607d 100644
--- a/translate/pptacticnew.ml
+++ b/translate/pptacticnew.ml
@@ -635,7 +635,7 @@ let ltactical = 3 in
 let lorelse = 2 in
 let llet = 1 in
 let lfun = 1 in
-let labstract = 1 in
+let labstract = 3 in
 let lmatch = 1 in
 let latom = 0 in
 let lcall = 1 in
@@ -645,10 +645,10 @@ let ltatom = 1 in
 let rec pr_tac env inherited tac =
   let (strm,prec) = match tac with
   | TacAbstract (t,None) ->
-      str "abstract " ++ pr_tac env (labstract,E) t, labstract
+      str "abstract " ++ pr_tac env (labstract,L) t, labstract
   | TacAbstract (t,Some s) -> 
       hov 0
-       (str "abstract " ++ pr_tac env ltop t ++ spc () ++
+       (str "abstract " ++ pr_tac env (labstract,L) t ++ spc () ++
         str "using " ++ pr_id s),
       labstract
   | TacLetRecIn (l,t) -> 
-- 
cgit v1.2.3