]> matita.cs.unibo.it Git - helm.git/commitdiff
One Obj.magic implemented, trust changed to false.
authorWilmer Ricciotti <ricciott@cs.unibo.it>
Thu, 31 Jan 2008 16:30:40 +0000 (16:30 +0000)
committerWilmer Ricciotti <ricciott@cs.unibo.it>
Thu, 31 Jan 2008 16:30:40 +0000 (16:30 +0000)
helm/software/components/ng_kernel/nCicEnvironment.ml

index 9f75f147c3e50b6f359eb419fec00a82d41a027d..10d3c198dea12d1e4a47c7188cb6f9dbbbe6fd0e 100644 (file)
@@ -1,8 +1,8 @@
 
 let get_checked_obj nuri =
-  let ouri = Obj.magic nuri in
+  let ouri = NUriManager.ouri_of_nuri nuri in
   let o,_ = 
-    CicEnvironment.get_cooked_obj ~trust:true CicUniv.oblivion_ugraph 
+    CicEnvironment.get_cooked_obj ~trust:false CicUniv.oblivion_ugraph 
       ouri 
   in
     OCic2NCic.convert_obj o