From fd9eb182a5a45d04c634ea17e2225dddbf667033 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 23 Nov 2005 15:10:16 +0000
Subject: bug #909: Top n'est cree que si le contexte est vide

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7602 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/global.ml  | 2 ++
 library/global.mli | 2 ++
 2 files changed, 4 insertions(+)

(limited to 'library')

diff --git a/library/global.ml b/library/global.ml
index 6606200866..b8bc364b05 100644
--- a/library/global.ml
+++ b/library/global.ml
@@ -25,6 +25,8 @@ let safe_env () = !global_env
 
 let env () = env_of_safe_env !global_env
 
+let env_is_empty () = is_empty !global_env
+
 let _ = 
   declare_summary "Global environment"
     { freeze_function = (fun () -> !global_env);
diff --git a/library/global.mli b/library/global.mli
index 9468f3ef52..ef8472d08f 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -29,6 +29,8 @@ open Safe_typing
 val safe_env : unit -> safe_environment
 val env : unit -> Environ.env
 
+val env_is_empty : unit -> bool
+
 val universes : unit -> universes
 val named_context : unit -> Sign.named_context
 
-- 
cgit v1.2.3