ocaml 3.09 transition

[helm.git] / helm / ocaml / tactics / ring.ml

diff --git a/helm/ocaml/tactics/ring.ml b/helm/ocaml/tactics/ring.ml
index 8f6369d512f601ead6358e03fb9d9773a0eafcb8..1d7cc10e6bfad0a0a16fe9b7ad2b74bc0dc6d078 100644 (file)
--- a/helm/ocaml/tactics/ring.ml
+++ b/helm/ocaml/tactics/ring.ml
@@ -366,7 +366,7 @@ let status_of_single_goal_tactic_result =
  function
     proof,[goal] -> proof,goal
   | _ ->
-    raise (Fail "status_of_single_goal_tactic_result: the tactic did not produce exactly a new goal")
+    raise (Fail (lazy "status_of_single_goal_tactic_result: the tactic did not produce exactly a new goal"))
 
 (* Galla: spostata in variousTactics.ml 
   (**
@@ -577,7 +577,7 @@ let ring_tac status =
               status'')])
         status      
       with (Fail s) ->
-        raise (Fail ("Ring failure: " ^ s))
+        raise (Fail (lazy ("Ring failure: " ^ Lazy.force s)))
     end
   | _ -> (* impossible: we are applying ring exacty to 2 terms *)
     assert false
@@ -588,7 +588,7 @@ let ring_tac status =
   try
     ring_tac status
   with GoalUnringable ->
-    raise (Fail "goal unringable")
+    raise (Fail (lazy "goal unringable"))
 
 let ring_tac = ProofEngineTypes.mk_tactic ring_tac