diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-20 09:18:38 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-20 09:18:38 +0000 |
| commit | b4a8a94ced8798e4e01c152af3ebf379a6be2f27 (patch) | |
| tree | 1d8ccb8cdfa4c13f0a56a230acdb0f74b54247b7 /syntax/PPConstr.v | |
| parent | 9c76a53b91f7df2fcb05adaa87cdace7ef1d2fbb (diff) | |
Affichage des <> pour débug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@330 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax/PPConstr.v')
| -rwxr-xr-x | syntax/PPConstr.v | 6 |
1 files 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 *) |