X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_library%2FnCicLibrary.ml;h=3117a12ad387d8458711ab9c50cf9b32271fac4c;hb=c5fe1eeb2b575d1c696ca15ad9155223839d82e2;hp=b63fe6a71263ec1e31e1bd7f555bc10fed89ab66;hpb=286a98aeb02ee44311b8007a10b8329bbf986577;p=helm.git diff --git a/matita/components/ng_library/nCicLibrary.ml b/matita/components/ng_library/nCicLibrary.ml index b63fe6a71..3117a12ad 100644 --- a/matita/components/ng_library/nCicLibrary.ml +++ b/matita/components/ng_library/nCicLibrary.ml @@ -260,7 +260,9 @@ module Serializer(D: sig type dumpable_s = private #dumpable_status end) = let ch = open_out (ng_path_of_baseuri baseuri) in Marshal.to_channel ch (magic,(status#dump.dependencies,status#dump.objs)) []; close_out ch; +(* remove_objects ~baseuri; (* FG: we remove the old objects before putting the new ones*) +*) List.iter (function | `Obj (uri,obj) ->