diff options
author | 2009-07-04 13:28:38 +0200 | |
---|---|---|
committer | 2009-07-04 13:28:38 +0200 | |
commit | 3a420f4ad929e8372d32c735fd0fd89dfc0346a1 (patch) | |
tree | 943a01d103c1296dc7c07cb188af994354c4d9a3 /parsing/g_vernac.ml4 | |
parent | 1769cbaddea77112dd6f336316d8eb9a0945a1e6 (diff) | |
parent | e4282ea99c664d8d58067bee199cbbcf881b60d5 (diff) |
Merge commit 'upstream/8.2.pl1+dfsg'
Diffstat (limited to 'parsing/g_vernac.ml4')
-rw-r--r-- | parsing/g_vernac.ml4 | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index f960492e..b2d67e1c 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -9,7 +9,7 @@ (*i camlp4deps: "parsing/grammar.cma" i*) (*i camlp4use: "pa_extend.cmo" i*) -(* $Id: g_vernac.ml4 11809 2009-01-20 11:39:55Z aspiwack $ *) +(* $Id: g_vernac.ml4 12187 2009-06-13 19:36:59Z msozeau $ *) open Pp @@ -447,10 +447,13 @@ GEXTEND Gram CWith_Module (fqid,qid) ] ] ; - module_type: + module_type_atom: [ [ qid = qualid -> CMTEident qid -(* ... *) - | mty = module_type; me = module_expr_atom -> CMTEapply (mty,me) + | mty = module_type_atom; me = module_expr_atom -> CMTEapply (mty,me) + ] ] + ; + module_type: + [ [ mty = module_type_atom -> mty | mty = module_type; "with"; decl = with_declaration -> CMTEwith (mty,decl) ] ] ; @@ -700,7 +703,8 @@ GEXTEND Gram | IDENT "Visibility"; s = OPT IDENT -> PrintVisibility s | IDENT "Implicit"; qid = global -> PrintImplicit qid | IDENT "Universes"; fopt = OPT ne_string -> PrintUniverses fopt - | IDENT "Assumptions"; qid = global -> PrintAssumptions qid ] ] + | IDENT "Assumptions"; qid = global -> PrintAssumptions (false, qid) + | IDENT "Opaque"; IDENT "Dependencies"; qid = global -> PrintAssumptions (true, qid) ] ] ; class_rawexpr: [ [ IDENT "Funclass" -> FunClass |