From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 9 Jul 2009 07:34:37 +0000 (+0000)
Subject: Bug fixed (non-captured variable).
X-Git-Tag: make_still_working~3724
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e7a76b29e40fbb9dfd9c2d5a06517f6fc56f8f89;hp=28da21926eb9cab187ba8a64999c760083f60369;p=helm.git

Bug fixed (non-captured variable).
---

diff --git a/helm/software/components/ng_cic_content/nTermCicContent.ml b/helm/software/components/ng_cic_content/nTermCicContent.ml
index 62d69f5d1..01e6fd482 100644
--- a/helm/software/components/ng_cic_content/nTermCicContent.ml
+++ b/helm/software/components/ng_cic_content/nTermCicContent.ml
@@ -137,8 +137,8 @@ let nast_of_cic0
              eat_branch (pred n) ((name,NCic.Decl s)::ctx) t pat 
           | NCic.Prod (_, _, t), NCic.Lambda (name, s, t') ->
               let cv, rhs = eat_branch 0 ((name,NCic.Decl s)::ctx) t t' in
-              (Ast.Ident (name,None), Some (k ~context s)) :: cv, rhs
-          | _, _ -> [], k ~context pat
+              (Ast.Ident (name,None), Some (k ~context:ctx s)) :: cv, rhs
+          | _, _ -> [], k ~context:ctx pat
         in
         let j = ref 0 in
         let patterns =