diff options
| author | Hugo Herbelin | 2017-05-15 22:30:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-05-16 12:17:39 +0200 |
| commit | cd3971e53b76cb62e14822eb3e275d3968a4f215 (patch) | |
| tree | dc2bdaa617d1bd30209ae63083c9e4d7d392917d /dev | |
| parent | 9f8220164703aee47c6c6d7dba07caabf7555c1c (diff) | |
Adding support for using grammar entries returning no value in EXTEND.
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 |