]> matita.cs.unibo.it Git - helm.git/commitdiff
Added debug print in NCicLibrary.serialize.
authorWilmer Ricciotti <ricciott@cs.unibo.it>
Mon, 12 Sep 2011 13:00:54 +0000 (13:00 +0000)
committerWilmer Ricciotti <ricciott@cs.unibo.it>
Mon, 12 Sep 2011 13:00:54 +0000 (13:00 +0000)
matitaB/components/ng_library/nCicLibrary.ml

index a8215ab6a1797cbdcf29aaa1aa34ffa1ae917d8e..6cb4029cf3d8dad9d8c7389fe65875f83c62b201 100644 (file)
@@ -255,6 +255,8 @@ module Serializer(D: sig type dumpable_s val get: dumpable_s -> dumpable_status
    let ch = open_out (ng_path_of_baseuri (D.user status) baseuri) in
    Marshal.to_channel ch (magic,((D.get status)#dump.dependencies,(D.get status)#dump.objs)) [];
    close_out ch;
+   let deps = String.concat ", " ((D.get status)#dump.dependencies) in 
+   prerr_endline ("dumping dependencies:\n" ^ deps ^ "\nend of deps");
    List.iter
     (function 
      | `Obj (uri,obj) ->