From 1190c6a6d16e87997d1dfef892b16bbf83d62aae Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 23 Dec 2005 10:16:42 +0000
Subject: Vérification qu'un module est ouvert avant d'insérer une déclaration
 nommée (peut arriver en mode -batch sans option -top)

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

diff --git a/library/lib.ml b/library/lib.ml
index b1896ae5e8..d1bb6599ad 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -183,6 +183,8 @@ let add_absolutely_named_leaf sp obj =
   add_entry sp (Leaf obj)
 
 let add_leaf id obj =
+  if fst (current_prefix ()) = initial_path then 
+    error ("No session module started (use -top dir)");
   let oname = make_oname id in
   cache_object (oname,obj);
   add_entry oname (Leaf obj);
-- 
cgit v1.2.3