X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fbasic_ag%2FbagType.mli;h=be444c93ebe8793702c4d0ed2e4c5c69d7cc8188;hb=c450fdfb1b02eb69e5e7ef25f0acdf80157710df;hp=ba0268e9c509e30135a475e47b73e66a425cc9e0;hpb=95872555aaa040a22ad2d93cb1278f79e20da70c;p=helm.git

diff --git a/helm/software/helena/src/basic_ag/bagType.mli b/helm/software/helena/src/basic_ag/bagType.mli
index ba0268e9c..be444c93e 100644
--- a/helm/software/helena/src/basic_ag/bagType.mli
+++ b/helm/software/helena/src/basic_ag/bagType.mli
@@ -9,8 +9,11 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-exception TypeError of Bag.message
+IFDEF TYPE THEN
 
 val type_of: 
+   (Bag.message -> 'a) ->
    (Bag.term -> Bag.term -> 'a) ->
-   Status.status -> Bag.lenv -> Bag.term -> 'a
+   Layer.status -> Bag.lenv -> Bag.term -> 'a
+
+END