From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 28 Oct 2009 16:28:50 +0000 (+0000)
Subject: Bug fixed: the `IsTerm attribute is now added by mk_meta and it was not
X-Git-Tag: make_still_working~3235
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=1dde0b0d0738439b29d7c2e4be9b9cbc382e8d5e;p=helm.git

Bug fixed: the `IsTerm attribute is now added by mk_meta and it was not
preserved. The current code should be more stable.
---

diff --git a/helm/software/components/ng_tactics/nTacStatus.ml b/helm/software/components/ng_tactics/nTacStatus.ml
index 0bef3a794..b6013c272 100644
--- a/helm/software/components/ng_tactics/nTacStatus.ml
+++ b/helm/software/components/ng_tactics/nTacStatus.ml
@@ -267,6 +267,7 @@ let mk_meta status ?(attrs=[]) ctx bo_or_ty kind =
       let n,h,metasenv,subst,o = status#obj in
       let metasenv, metano, instance, _ = 
         NCicMetaSubst.mk_meta ~attrs metasenv ctx ~with_type:ty kind in
+      let attrs,_,_ = NCicUtils.lookup_meta metano metasenv in
       let metasenv = List.filter (fun j,_ -> j <> metano) metasenv in
       let subst = (metano, (attrs, ctx, bo_, ty)) :: subst in
       let status = status#set_obj (n,h,metasenv,subst,o) in