X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FproofEngine.ml;h=20863f1a9e366558b694e9483484b2ee279e5509;hb=9e7e14a98d5b6c728f980979f21d542d829d9b98;hp=1d6ce4f203dc6d9a6211e808056ff9c3513b2a09;hpb=a6fc115fd7d4cfba94a43f001f4c27322d3db1a8;p=helm.git

diff --git a/helm/gTopLevel/proofEngine.ml b/helm/gTopLevel/proofEngine.ml
index 1d6ce4f20..20863f1a9 100644
--- a/helm/gTopLevel/proofEngine.ml
+++ b/helm/gTopLevel/proofEngine.ml
@@ -61,7 +61,7 @@ let apply_tactic ~tactic =
   | None,_
   | _,None -> assert false
   | Some proof', Some goal' ->
-     let (newproof, newgoals) = tactic ~status:(proof', goal') in
+     let (newproof, newgoals) = tactic (proof', goal') in
       set_proof (Some newproof);
       goal :=
        (match newgoals, newproof with