aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/workerLoop.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/workerLoop.ml')
-rw-r--r--stm/workerLoop.ml4
1 files changed, 2 insertions, 2 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