X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FnEstatus.ml;h=306eca9d67cc45adf0e7e26c49cc410fc2f62118;hb=b266ed97b63400d62ab4ba6a4ebdfbc1d5b0c2bb;hp=0c6e91095d4502bd0052afe6c89aa0d1b952ab44;hpb=f4c17198d8afe7c8cd62dbab527d08902d891491;p=helm.git

diff --git a/helm/software/components/grafite_parser/nEstatus.ml b/helm/software/components/grafite_parser/nEstatus.ml
index 0c6e91095..306eca9d6 100644
--- a/helm/software/components/grafite_parser/nEstatus.ml
+++ b/helm/software/components/grafite_parser/nEstatus.ml
@@ -11,16 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
+class type g_status =
+ object
+  inherit LexiconEngine.g_status
+  inherit NRstatus.g_dumpable_status
+ end
+
 class status =
  object (self)
   inherit LexiconEngine.status
   inherit NRstatus.dumpable_status
-  method set_estatus
-   : 'status.
-      < coerc_db : NCicCoercion.db;
-        uhint_db : NCicUnifHint.db;
-        timestamp: NCicLibrary.timestamp;
-        dump: NRstatus.Serializer.obj list;
-        lstatus: LexiconEngine.lexicon_status; .. > as 'status -> 'self
+  method set_estatus : 'status. #g_status as 'status -> 'self
    = fun o -> (self#set_lexicon_engine_status o)#set_dumpable_status o
  end