From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Fri, 12 Sep 2008 18:11:44 +0000 (+0000)
Subject: old bug in mtime computation fixed
X-Git-Tag: make_still_working~4786
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e45ba2323380ad74c296dd4ec16a71be51c069ba;p=helm.git

old bug in mtime computation fixed
---

diff --git a/helm/software/components/library/librarian.ml b/helm/software/components/library/librarian.ml
index 990e74813..32b6de48b 100644
--- a/helm/software/components/library/librarian.ml
+++ b/helm/software/components/library/librarian.ml
@@ -231,7 +231,7 @@ module Make = functor (F:Format) -> struct
         | None ->
            match F.mtime_of_target_object a with
            | Some t as x -> 
-               Hashtbl.remove ct b;
+               Hashtbl.remove ct a;
                Hashtbl.add ct a x; x
            | x -> x
       with Not_found -> assert false