diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-19 08:39:28 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-19 08:39:28 +0000 |
| commit | 4b2963052ac92e67f08651d8f01e562007c07a34 (patch) | |
| tree | 151473076aeea21fb75b473fa7b93032b3adaca9 /parsing | |
| parent | 9fd57222b55d9840ebfe4ecae7c9af5562374908 (diff) | |
parse "of" as KEYID "of"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16591 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_ltac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 482f0df72..0b2515554 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -135,7 +135,7 @@ GEXTEND Gram ConstrEval (rtc,c) | IDENT "context"; id = identref; "["; c = Constr.lconstr; "]" -> ConstrContext (id,c) - | IDENT "type"; IDENT "of"; c = Constr.constr -> + | IDENT "type"; KEYID "of" ; c = Constr.constr -> ConstrTypeOf c ] ] ; constr_may_eval: (* For extensions *) diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 5a5c07185..10cfb7d83 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -370,9 +370,9 @@ GEXTEND Gram hypident: [ [ id = id_or_meta -> id,InHyp - | "("; IDENT "type"; IDENT "of"; id = id_or_meta; ")" -> + | "("; IDENT "type"; KEYID "of"; id = id_or_meta; ")" -> id,InHypTypeOnly - | "("; IDENT "value"; IDENT "of"; id = id_or_meta; ")" -> + | "("; IDENT "value"; KEYID "of"; id = id_or_meta; ")" -> id,InHypValueOnly ] ] ; |