diff options
| author | Enrico Tassi | 2018-04-17 10:12:17 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-19 11:32:07 +0200 |
| commit | 2cf58e18f01fa379c5be3d3dddf41d8051fcc1cc (patch) | |
| tree | cf41c91a05d682f323cda605066dcfa1816b4ac5 /stm/workerLoop.ml | |
| parent | ed5ec093c216bef6629657f69d7f94256e3ec009 (diff) | |
[toplevel] let toploop_init change Coq options
Toplevels may want to modify for example the Stm flags,
which after #1108 are handled in a functional way.
Diffstat (limited to 'stm/workerLoop.ml')
| -rw-r--r-- | stm/workerLoop.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stm/workerLoop.ml b/stm/workerLoop.ml index 5445925b14..5130b019a9 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 |