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 =
| Some fork ->
let _,children = ProofEngine.commit fork in
reconcile children subscripts ; (*TODO: saveback forgiven script ? *)
List.filter
(fun (_,node) -> not (ProofEngine.proved node))
children
let ok = List.for_all
(fun (_,node) -> ProofEngine.proved node)
children in
if ok then [] else children
(* -------------------------------------------------------------------------- *)
(* --- 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