From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Sat, 18 Feb 2006 11:33:05 +0000 (+0000)
Subject: Bug fixed: the wrong exception was enriched, breaking the invariant that
X-Git-Tag: make_still_working~7559
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=328a447fe9cbc58758a6279c49a8d9cdb6323745;p=helm.git

Bug fixed: the wrong exception was enriched, breaking the invariant that
only unlocalized exceptions can be enriched.
---

diff --git a/helm/software/components/cic_unification/cicRefine.ml b/helm/software/components/cic_unification/cicRefine.ml
index b74d40296..52b1a1034 100644
--- a/helm/software/components/cic_unification/cicRefine.ml
+++ b/helm/software/components/cic_unification/cicRefine.ml
@@ -1174,7 +1174,7 @@ and type_of_aux' ?(localization_tbl = Cic.CicHash.create 1) metasenv context t
                                 newhety s ugraph
                             in
                              newt, subst, metasenv, ugraph
-                           with exn ->
+                           with _ ->
                             enrich localization_tbl hete
                              ~f:(fun _ ->
                                (lazy ("The term " ^