diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-01-25 01:48:41 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-21 15:51:49 +0100 |
commit | 6e3fc0992be7ddd841328028dec51d390fffb851 (patch) | |
tree | 479f0c917c5678f12a948f8ba3dba731e30d08db /stm/proofworkertop.ml | |
parent | 921ea3983d45051ae85b0e20bf13de2eff38e53e (diff) |
[stm] Add common toploop for workers.
This is a small, but convenient refactoring, as it will allow common
argument parsing.
Diffstat (limited to 'stm/proofworkertop.ml')
-rw-r--r-- | stm/proofworkertop.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/stm/proofworkertop.ml b/stm/proofworkertop.ml index 23538a467..0d2f9cb74 100644 --- a/stm/proofworkertop.ml +++ b/stm/proofworkertop.ml @@ -8,11 +8,7 @@ module W = AsyncTaskQueue.MakeWorker(Stm.ProofTask) -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 |