diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-01 14:26:02 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-01 14:26:02 +0000 |
| commit | 0f999f0447e92343be9eed116e33df3149339b82 (patch) | |
| tree | 2ced4e2c3d615b2c0955d4c2e9b3f40c2db85334 /parsing | |
| parent | 1ce0550e04870a5a93d464bab8c2be6fb5d2702d (diff) | |
Granting bug #3098: adding priority to Existing Instances.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16645 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 450414625..aac47126f 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -560,10 +560,12 @@ GEXTEND Gram ":="; c = lconstr -> Some c | -> None ] -> VernacInstance (false,snd namesup,(fst namesup,expl,t),props,pri) - | IDENT "Existing"; IDENT "Instance"; id = global -> - VernacDeclareInstances [id] - | IDENT "Existing"; IDENT "Instances"; ids = LIST1 global -> - VernacDeclareInstances ids + | IDENT "Existing"; IDENT "Instance"; id = global; + pri = OPT [ "|"; i = natural -> i ] -> + VernacDeclareInstances ([id], pri) + | IDENT "Existing"; IDENT "Instances"; ids = LIST1 global; + pri = OPT [ "|"; i = natural -> i ] -> + VernacDeclareInstances (ids, pri) | IDENT "Existing"; IDENT "Class"; is = global -> VernacDeclareClass is |