Skip to content
Snippets Groups Projects
Commit 1a4effc1 authored by Allan Blanchard's avatar Allan Blanchard
Browse files

[wp] Strategies use the right prover list

parent 613343b0
No related branches found
No related tags found
No related merge requests found
...@@ -665,9 +665,10 @@ class pane (gprovers : GuiConfig.provers) = ...@@ -665,9 +665,10 @@ class pane (gprovers : GuiConfig.provers) =
self#search proof fork self#search proof fork
else else
begin begin
let provers = List.map (fun e -> e#prover) provers in
ProverScript.search ProverScript.search
~depth ~width ~auto ~depth ~width ~auto
~provers:[ VCS.NativeAltErgo ] ~provers
~result: ~result:
(fun wpo prv res -> (fun wpo prv res ->
text#printf "[%a] %a : %a@." text#printf "[%a] %a : %a@."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment