diff options
| author | Arnaud Spiwack | 2014-08-05 12:15:32 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-08-05 16:52:13 +0200 |
| commit | 5cbeafc8d8a7fdf403b864c16ba9c4e7013b0d11 (patch) | |
| tree | 36c2c985cc86f306f9facf0f4db722d872675f67 | |
| parent | 076ac1757383cd9e3f505c3f958c1757087011ac (diff) | |
Small refactoring: use [uconstr] instead of [constr] when relevant in grammar rules.
| -rw-r--r-- | parsing/g_ltac.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 2d9cd3cd41..ea38358660 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -143,12 +143,12 @@ GEXTEND Gram ; (* Can be used as argument and at toplevel in tactic expressions. *) tactic_top_or_arg: - [ [ IDENT "uconstr"; ":" ; c = Constr.constr -> UConstr c + [ [ IDENT "uconstr"; ":" ; c = uconstr -> UConstr c | IDENT "ipattern"; ":"; ipat = simple_intropattern -> TacGeneric (genarg_of_ipattern ipat) | c = constr_eval -> ConstrMayEval c | IDENT "fresh"; l = LIST0 fresh_id -> TacFreshId l - | IDENT "type_term"; c=Constr.constr -> TacPretype c + | IDENT "type_term"; c=uconstr -> TacPretype c | IDENT "numgoals" -> TacNumgoals ] ] ; fresh_id: |