From b4a8a94ced8798e4e01c152af3ebf379a6be2f27 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 20 Mar 2000 09:18:38 +0000
Subject: Affichage des <> pour débug
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@330 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 syntax/PPConstr.v | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v
index 493f3c23a..51ab2d517 100755
--- a/syntax/PPConstr.v
+++ b/syntax/PPConstr.v
@@ -51,8 +51,10 @@ Syntax constr
       -> [ [<hov 0> "[_=" $M "]" [0 1] $N:E ] ]
 
   | let [<<[$x = $M]$N>>] -> [ [<hov 0> "[" $x "=" $M:E "]" [0 1] $N:E ] ]
- 
-  | abstpat  [[$id1]$c] -> [ [<hov 0> "<<" $id1 ">>" [0 1] $c:E ] ]
+
+  (* For debug *)
+  | abstpatnamed [[$id1]$c] -> [ [<hov 0> "<<" $id1 ">>" [0 1] $c:E ] ]
+  | abstpatanon  [[ <> ]$c] -> [ [<hov 0> "<<_>>" [0 1] $c:E ] ]
   ;
 
 (* Things parsed in command2 *)
-- 
cgit v1.2.3