diff options
| author | Maxime Dénès | 2017-05-17 19:18:49 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-17 19:18:49 +0200 |
| commit | 9f11adda4bff194a3c6a66d573ce7001d4399886 (patch) | |
| tree | be4fde28322ff1c71d2be4bb836390b1d7ffba96 /dev | |
| parent | 6d770156669dd9868ae7623b8f4302866e2cc8c7 (diff) | |
| parent | b82f27726f5ae891689e3b958323c2a61d4c154b (diff) | |
Merge PR#633: An extension of EXTEND and notations to make standard parsing tricks available to users
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index f8498c4023..ce6d5dff05 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -510,7 +510,7 @@ let _ = extend_vernac_command_grammar ("PrintConstr", 0) None [GramTerminal "PrintConstr"; GramNonTerminal - (Loc.ghost,rawwit wit_constr,Extend.Aentry Pcoq.Constr.constr)] + (Loc.ghost,Some (rawwit wit_constr),Extend.Aentry Pcoq.Constr.constr)] let _ = try @@ -526,7 +526,7 @@ let _ = extend_vernac_command_grammar ("PrintPureConstr", 0) None [GramTerminal "PrintPureConstr"; GramNonTerminal - (Loc.ghost,rawwit wit_constr,Extend.Aentry Pcoq.Constr.constr)] + (Loc.ghost,Some (rawwit wit_constr),Extend.Aentry Pcoq.Constr.constr)] (* Setting printer of unbound global reference *) open Names |