X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_cache%2FcicCache.ml;h=1080c39e76873171f9cc64e486b2c8de50a5adfd;hb=f7b2e35a7bdadb4fdf0e640428e694703ddf67a5;hp=7dfd8242d1ff724f06d75ce0a5fdf35b89df0cc2;hpb=5a92117eeff70048d29e91ba24e113155d956e1b;p=helm.git

diff --git a/helm/ocaml/cic_cache/cicCache.ml b/helm/ocaml/cic_cache/cicCache.ml
index 7dfd8242d..1080c39e7 100644
--- a/helm/ocaml/cic_cache/cicCache.ml
+++ b/helm/ocaml/cic_cache/cicCache.ml
@@ -39,11 +39,22 @@ let get_annobj uri =
  let module G = Getter in
  let module U = UriManager in
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
-   match CicParser.term_of_xml cicfilename uri false with
-      (_, Some _) -> assert false
-    | (annobj, None) -> annobj
+   match (U.bodyuri_of_uri uri) with
+      None ->
+        CicParser.annobj_of_xml cicfilename None
+    | Some bodyuri ->
+       let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
+        CicParser.annobj_of_xml cicfilename (Some cicbodyfilename)
 ;;
 
 let get_obj uri =
- Deannotate.deannotate_obj (get_annobj uri)
+ let module G = Getter in
+ let module U = UriManager in
+  let cicfilename = G.getxml (U.cicuri_of_uri uri) in
+   match (U.bodyuri_of_uri uri) with
+      None ->
+        CicParser.obj_of_xml cicfilename None
+    | Some bodyuri ->
+       let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
+        CicParser.obj_of_xml cicfilename (Some cicbodyfilename)
 ;;