From 504ab5e2aeb2b204c3ba1d6f4af5b52e6f88b604 Mon Sep 17 00:00:00 2001
From: lmamane
Date: Wed, 10 Jan 2007 17:13:30 +0000
Subject: Merge with Lionel Elie Mamane's private branch:

 - Fix previous merge (semantic/type conflict in code added minutes
   before my commit).


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9477 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/lib.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/lib.ml b/library/lib.ml
index c51dc79a7d..e625fe215b 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -506,7 +506,7 @@ let discharge_item ((sp,_ as oname),e) =
   | Leaf lobj ->
       option_map (fun o -> (basename sp,o)) (discharge_object (oname,lobj))
   | FrozenState _ -> None
-  | ClosedSection -> None
+  | ClosedSection _ | ClosedModtype _ | ClosedModule _ -> None
   | OpenedSection _ | OpenedModtype _ | OpenedModule _ | CompilingLibrary _ ->
       anomaly "discharge_item"
 
-- 
cgit v1.2.3