]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/library/librarian.ml
BTop is a category.
[helm.git] / helm / software / components / library / librarian.ml
index 990e74813cbcf209bb918580b18117353ec255de..32b6de48bfd6a599b905ee30820f6f5457839a90 100644 (file)
@@ -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