From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 4 Dec 2007 22:01:38 +0000 (+0000)
Subject: Even if the error is not localized, it was not a good idea to make the unification... 
X-Git-Tag: make_still_working~5728
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=b89690596acb0b24f1fd45da28ac04b4ad217e98;p=helm.git

Even if the error is not localized, it was not a good idea to make the unification error
escape.
---

diff --git a/helm/software/components/cic_unification/cicRefine.ml b/helm/software/components/cic_unification/cicRefine.ml
index 970d3e05f..954c4835b 100644
--- a/helm/software/components/cic_unification/cicRefine.ml
+++ b/helm/software/components/cic_unification/cicRefine.ml
@@ -1856,10 +1856,13 @@ let typecheck metasenv uri obj ~localization_tbl =
              " but is here used with type " ^
              CicMetaSubst.ppterm_in_context ~metasenv [] ty' [])
           in
-           match exn with
-              RefineFailure _ -> raise (HExtlib.Localized (loc exn,RefineFailure msg))
-            | Uncertain _ -> raise (HExtlib.Localized (loc exn,Uncertain msg))
-            | _ -> assert false
+           let exn' =
+            match exn with
+               RefineFailure _ -> RefineFailure msg
+             | Uncertain _ -> Uncertain msg
+             | _ -> assert false
+           in
+            raise (HExtlib.Localized (loc exn',exn'))
      in
      let bo' = CicMetaSubst.apply_subst subst bo' in
      let ty' = CicMetaSubst.apply_subst subst ty' in