]> matita.cs.unibo.it Git - helm.git/commitdiff
Metas must be handled when using iterators.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 6 Aug 2009 13:33:00 +0000 (13:33 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 6 Aug 2009 13:33:00 +0000 (13:33 +0000)
helm/software/components/ng_kernel/nCicLibrary.ml

index 33276cc3df689942cd19391af7e2c30d92647d1c..c75de5265b603d67808c7ff55582960f792779c0 100644 (file)
@@ -23,6 +23,9 @@ let refresh_uri_in_universe =
 
 let rec refresh_uri_in_term =
  function
+  | NCic.Meta (i,(n,NCic.Ctx l)) ->
+     NCic.Meta (i,(n,NCic.Ctx (List.map refresh_uri_in_term l)))
+  | NCic.Meta _ as t -> t
   | NCic.Const (NReference.Ref (u,spec)) ->
      NCic.Const (NReference.reference_of_spec (refresh_uri u) spec)
   | NCic.Sort (NCic.Type l) -> NCic.Sort (NCic.Type (refresh_uri_in_universe l))