X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2Fring.ml;h=1d7cc10e6bfad0a0a16fe9b7ad2b74bc0dc6d078;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=8f6369d512f601ead6358e03fb9d9773a0eafcb8;hpb=cfda0acfce3f5e0b843bfe2b7ba7c371e5690db0;p=helm.git

diff --git a/helm/ocaml/tactics/ring.ml b/helm/ocaml/tactics/ring.ml
index 8f6369d51..1d7cc10e6 100644
--- 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