diff options
| -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: |