From 9e7e14a98d5b6c728f980979f21d542d829d9b98 Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Tue, 20 Apr 2004 17:00:27 +0000
Subject: [PATCH] got rid of ~status label

---
 helm/gTopLevel/proofEngine.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.39.2