diff options
| author | Pierre-Marie Pédrot | 2016-03-18 22:27:17 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-19 01:17:39 +0100 |
| commit | a99aa093b962e228817066d00f7e12698f8df73a (patch) | |
| tree | 9d1366284bf905bcf2568e0f14a2a37d17314e50 /dev | |
| parent | 13c50b98b0a294a6056d2e00a0de44cedca7af12 (diff) | |
Simplifying the code of Entry.
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..b8bc0483d3 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,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,Aentry (Pcoq.name_of_entry Pcoq.Constr.constr))] (* Setting printer of unbound global reference *) open Names |