aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/tacworkertop.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/tacworkertop.ml')
-rw-r--r--stm/tacworkertop.ml6
1 files changed, 1 insertions, 5 deletions
diff --git a/stm/tacworkertop.ml b/stm/tacworkertop.ml
index d5333d107..256532c6b 100644
--- a/stm/tacworkertop.ml
+++ b/stm/tacworkertop.ml
@@ -8,11 +8,7 @@
module W = AsyncTaskQueue.MakeWorker(Stm.TacTask)
-let () = Coqtop.toploop_init := (fun args ->
- Flags.make_silent true;
- W.init_stdout ();
- CoqworkmgrApi.init !Flags.async_proofs_worker_priority;
- args)
+let () = Coqtop.toploop_init := WorkerLoop.loop W.init_stdout
let () = Coqtop.toploop_run := W.main_loop