diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-19 19:12:17 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-19 19:12:17 +0200 |
| commit | 350ee43d73ee4d6c9b6c3fd24cae3aca8a2b5ce4 (patch) | |
| tree | 7432a2c50e7d682dec05e01fc3260347ce47c487 /stm | |
| parent | 9a4ca53a3a021cb16de7706ec79a26e49f54de49 (diff) | |
| parent | 2cf58e18f01fa379c5be3d3dddf41d8051fcc1cc (diff) | |
Merge PR #7282: [toplevel] allow toploop_init change Coq options
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/workerLoop.ml | 4 | ||||
| -rw-r--r-- | stm/workerLoop.mli | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/stm/workerLoop.ml b/stm/workerLoop.ml index 5445925b1..5130b019a 100644 --- a/stm/workerLoop.ml +++ b/stm/workerLoop.ml @@ -17,9 +17,9 @@ let rec parse = function | x :: rest -> x :: parse rest | [] -> [] -let loop init _coq_args extra_args = +let loop init coq_args extra_args = let args = parse extra_args in Flags.quiet := true; init (); CoqworkmgrApi.init !async_proofs_worker_priority; - args + coq_args, args diff --git a/stm/workerLoop.mli b/stm/workerLoop.mli index f02edb9bb..37ec6dacc 100644 --- a/stm/workerLoop.mli +++ b/stm/workerLoop.mli @@ -11,4 +11,6 @@ (* Default priority *) val async_proofs_worker_priority : CoqworkmgrApi.priority ref -val loop : (unit -> unit) -> Coqargs.coq_cmdopts -> string list -> string list +val loop : + (unit -> unit) -> Coqargs.coq_cmdopts -> string list -> + Coqargs.coq_cmdopts * string list |