diff options
| author | herbelin | 2007-02-15 18:30:14 +0000 |
|---|---|---|
| committer | herbelin | 2007-02-15 18:30:14 +0000 |
| commit | 1cb9fe4d99d82260074419ac4ada5d6058ae165c (patch) | |
| tree | 9c293beb9e0efebf0748d2a9cf829e185cbbfeb1 | |
| parent | ceba05fb3df673f8378e63c709aff7811014855c (diff) | |
Réintroduction de l'entrée "integer" dans ltac (apparemment disparue lors
du passage de l'ancienne à la nouvelle syntaxe)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9650 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | doc/refman/RefMan-ltac.tex | 1 | ||||
| -rw-r--r-- | parsing/g_ltac.ml4 | 7 |
2 files changed, 6 insertions, 2 deletions
diff --git a/doc/refman/RefMan-ltac.tex b/doc/refman/RefMan-ltac.tex index 79a33712dd..41f38046e0 100644 --- a/doc/refman/RefMan-ltac.tex +++ b/doc/refman/RefMan-ltac.tex @@ -138,6 +138,7 @@ is understood as {\atom} & ::= & {\qualid} \\ & | & ()\\ +& | & {\integer}\\ & | & {\tt (} {\tacexpr} {\tt )}\\ \\ {\messagetoken}\!\!\!\!\!\! & ::= & {\qstring} ~|~ {\term} ~|~ {\integer} \\ diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 428c9efb7f..4b954b174c 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -117,8 +117,10 @@ GEXTEND Gram | IDENT "ipattern"; ":"; ipat = simple_intropattern -> IntroPattern ipat | a = may_eval_arg -> a | r = reference -> Reference r - | a = tactic_atom -> a - | c = Constr.constr -> ConstrMayEval (ConstrTerm c) ] ] + | c = Constr.constr -> ConstrMayEval (ConstrTerm c) + (* Unambigous entries: tolerated w/o "ltac:" modifier *) + | id = METAIDENT -> MetaIdArg (loc,id) + | "()" -> TacVoid ] ] ; may_eval_arg: [ [ c = constr_eval -> ConstrMayEval c @@ -141,6 +143,7 @@ GEXTEND Gram ; tactic_atom: [ [ id = METAIDENT -> MetaIdArg (loc,id) + | n = integer -> Integer n | "()" -> TacVoid ] ] ; match_key: |