diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:57:51 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:57:51 +0000 |
| commit | 49485357eb8cd7f1820bd984f1833282f96cd656 (patch) | |
| tree | 8c4a35dcf3abf6ad404df60e21b6b814ae04b748 /syntax | |
| parent | 32170384190168856efeac5bcf90edf1170b54d6 (diff) | |
Ajout EVAL
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2723 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rwxr-xr-x | syntax/PPConstr.v | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v index ee259cbfa..6e17c0d51 100755 --- a/syntax/PPConstr.v +++ b/syntax/PPConstr.v @@ -251,4 +251,12 @@ Syntax constr | onecofixdecl [ << (CFDECL $f $A $t) >> ] -> [ $f " : " [1 2] $A:E " :=" - [1 2] $t:E ]. + [1 2] $t:E ] + ; + + level 8: + evalconstr [ << (EVAL $c $r) >> ] -> + [ [<hv 0> "Eval" [1 1] $r [1 0] "in" [1 1] $c:E ] ]. + + + |