From: denes <??>
Date: Fri, 5 Jun 2009 12:25:06 +0000 (+0000)
Subject: Fix : wrong exception was catch in apply_subst
X-Git-Tag: make_still_working~3916
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=233826389b4c0c4192c1eb1cacc8cfa99b2750f4;p=helm.git

Fix : wrong exception was catch in apply_subst
---

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index baae7f9c2..633ecea57 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -177,7 +177,7 @@ let apply_subst subst context t =
        let t = NCicSubstitution.subst_meta lc t in
         apply_subst subst () t
       with
-       Not_found ->
+       NCicUtils.Subst_not_found j when j = i ->
         match lc with
            _,NCic.Irl _ -> NCic.Meta (i,lc)
          | n,NCic.Ctx l ->