X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fbasic_ag%2FbagEnvironment.ml;h=865b6a59961d663d16f89e3af72bc1dbe5c627b4;hb=f7d7f2459b3b0409be5f168822be3b836ccc929b;hp=3f2b5534d96aa601d57b8db00399ec0ccb88e79a;hpb=fec20705af4705f8eb9542aece87769b82a6a6b4;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagEnvironment.ml b/helm/software/helena/src/basic_ag/bagEnvironment.ml
index 3f2b5534d..865b6a599 100644
--- a/helm/software/helena/src/basic_ag/bagEnvironment.ml
+++ b/helm/software/helena/src/basic_ag/bagEnvironment.ml
@@ -16,6 +16,8 @@ module G  = Options
 module E  = Entity
 module Z  = Bag
 
+IFDEF TYPE THEN
+
 exception ObjectNotFound of Z.message
 
 let hsize = 7000
@@ -39,3 +41,5 @@ END
 
 let get_entity f uri =
    try f (UH.find env uri) with Not_found -> error uri
+
+END