aboutsummaryrefslogtreecommitdiff
path: root/toplevel
diff options
context:
space:
mode:
authorGaƫtan Gilbert2019-10-31 14:55:05 +0100
committerEmilio Jesus Gallego Arias2019-10-31 17:06:15 +0100
commit85905b38c15c3d2bb73e878e6e7db180b73d468e (patch)
tree715c6f35f099b48aa1c1540d2f53d958b35fe230 /toplevel
parent777109f0068d524ca2a82d405416da273fec3d7f (diff)
[prettyp] remove `mod_ops` and `indirect_accessor` parameters
`Prettyp` is now late enough in linking to refer to them.
Diffstat (limited to 'toplevel')
-rw-r--r--toplevel/coqc.ml6
1 files changed, 1 insertions, 5 deletions
diff --git a/toplevel/coqc.ml b/toplevel/coqc.ml
index 642dc94ab2..98206fb341 100644
--- a/toplevel/coqc.ml
+++ b/toplevel/coqc.ml
@@ -53,11 +53,7 @@ let coqc_main copts ~opts =
if opts.Coqargs.post.Coqargs.output_context then begin
let sigma, env = let e = Global.env () in Evd.from_env e, e in
- let library_accessor = Library.indirect_accessor in
- let mod_ops = { Printmod.import_module = Declaremods.import_module
- ; process_module_binding = Declaremods.process_module_binding
- } in
- Feedback.msg_notice Pp.(Flags.(with_option raw_print (Prettyp.print_full_pure_context ~mod_ops ~library_accessor env) sigma) ++ fnl ())
+ Feedback.msg_notice Pp.(Flags.(with_option raw_print (Prettyp.print_full_pure_context env) sigma) ++ fnl ())
end;
CProfile.print_profile ()