From e7f9bc39ab4e879b521439901ed99bf3382bd40a Mon Sep 17 00:00:00 2001
From: coq
Date: Tue, 7 Oct 2003 15:36:10 +0000
Subject: Correction du bug 335 et Export/Require Export dans un module

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

(limited to 'library/lib.ml')

diff --git a/library/lib.ml b/library/lib.ml
index 179e51bf8e..f456f2410b 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -363,6 +363,18 @@ let is_modtype () =
     with
 	Not_found -> false
 
+(* Returns true if we are inside an opened module *)
+let is_module () = 
+  let opened_p = function
+    | _, OpenedModule _ -> true 
+    | _ -> false
+  in
+    try 
+      let _ = find_entry_p opened_p in true
+    with
+	Not_found -> false
+
+
 (* Returns the most recent OpenedThing node *)
 let what_is_opened () = find_entry_p is_something_opened
 
-- 
cgit v1.2.3