diff options
| author | Pierre-Marie Pédrot | 2016-03-19 01:34:55 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-19 01:35:14 +0100 |
| commit | f63cf9d72c7feb6aa65e525bf6262559a355435f (patch) | |
| tree | 82264308c979e846501e86634f319f7caf10a048 /dev | |
| parent | 13c50b98b0a294a6056d2e00a0de44cedca7af12 (diff) | |
| parent | 25f39e54e4e8eaf08865121f06635dc3bd1092da (diff) | |
Cleaning up and extending the expressivity of Pcoq.
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 aef9b10b26..141eab3f3f 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -520,7 +520,7 @@ let _ = extend_vernac_command_grammar ("PrintConstr", 0) None [GramTerminal "PrintConstr"; GramNonTerminal - (Loc.ghost,rawwit wit_constr,Aentry (Entry.unsafe_of_name ("constr","constr")))] + (Loc.ghost,rawwit wit_constr,Extend.Aentry (Pcoq.name_of_entry Pcoq.Constr.constr))] let _ = try @@ -536,7 +536,7 @@ let _ = extend_vernac_command_grammar ("PrintPureConstr", 0) None [GramTerminal "PrintPureConstr"; GramNonTerminal - (Loc.ghost,rawwit wit_constr,Aentry (Entry.unsafe_of_name ("constr","constr")))] + (Loc.ghost,rawwit wit_constr,Extend.Aentry (Pcoq.name_of_entry Pcoq.Constr.constr))] (* Setting printer of unbound global reference *) open Names |