added some lines to compile for debugging

[helm.git] / components / tactics / tacticals.ml

diff --git a/components/tactics/tacticals.ml b/components/tactics/tacticals.ml
index f3f7793032365bb5194137002b9356e0a2a80881..06f96a573c28f367c244a649080c4fc136c7e981 100644 (file)
--- a/components/tactics/tacticals.ml
+++ b/components/tactics/tacticals.ml
@@ -113,7 +113,7 @@ struct
      back to obtain the result of the tactic *)
   let mk_tactic f =
     PET.mk_tactic
-      (fun (proof, goal) as pstatus ->
+      (fun ((proof, goal) as pstatus) ->
         let stack = [ [ 1, Stack.Open goal ], [], [], `NoTag ] in
         let istatus = pstatus, stack in
         let (proof, _, _), stack = f istatus in