diff options
author | 2007-02-15 18:30:14 +0000 | |
---|---|---|
committer | 2007-02-15 18:30:14 +0000 | |
commit | 1cb9fe4d99d82260074419ac4ada5d6058ae165c (patch) | |
tree | 9c293beb9e0efebf0748d2a9cf829e185cbbfeb1 /parsing | |
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
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_ltac.ml4 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 428c9efb7..4b954b174 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: |