inherit ([Continuationals.Stack.t] NTacStatus.status fake_obj (Continuationals.Stack.empty))
inherit NCicLibrary.dumpable_status
inherit NCicLibrary.status
+ inherit NCicExtraction.status
+ inherit OcamlExtractionTable.status
inherit GrafiteParser.status
inherit TermContentPres.status
val baseuri = b
method set_ng_mode v = {< ng_mode = v >}
end
-module Serializer =
- NCicLibrary.Serializer(struct
- type dumpable_s = status
- let get status = (status : #status :> NCicLibrary.dumpable_status)
- let set (status : dumpable_s) dump_status = status#set_dumpable_status dump_status
- end)
+module Serializer = NCicLibrary.Serializer(struct type dumpable_s = status end)