Commit a5a4a2c5 authored by Loïc Correnson's avatar Loïc Correnson Committed by Allan Blanchard
Browse files

[wp] commit all residuals in prover script


(cherry picked from commit c7db4956)
parent b876bf4e
...@@ -322,9 +322,10 @@ let apply env node jtactic subscripts = ...@@ -322,9 +322,10 @@ let apply env node jtactic subscripts =
| Some fork -> | Some fork ->
let _,children = ProofEngine.commit fork in let _,children = ProofEngine.commit fork in
reconcile children subscripts ; (*TODO: saveback forgiven script ? *) reconcile children subscripts ; (*TODO: saveback forgiven script ? *)
List.filter let ok = List.for_all
(fun (_,node) -> not (ProofEngine.proved node)) (fun (_,node) -> ProofEngine.proved node)
children children in
if ok then [] else children
(* -------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------- *)
(* --- Script Crawling --- *) (* --- Script Crawling --- *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment