From d70cc5482d151031649f65fee4ad12f8e9fb669d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 8 Apr 2003 11:25:08 +0000
Subject: Application de l'absence d'export aux modules

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3869 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/symbols.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/interp/symbols.ml b/interp/symbols.ml
index 662153f782..30e1392364 100644
--- a/interp/symbols.ml
+++ b/interp/symbols.ml
@@ -301,12 +301,14 @@ let subst_scope (_,subst,sc) = sc
 
 open Libobject
 
+let classify_scope (_,(exp,_ as o)) = if exp then Substitute o else Dispose
+
 let (inScope,outScope) = 
   declare_object {(default_object "SCOPE") with
       cache_function = cache_scope;
       open_function = (fun i o -> if i=1 then cache_scope o);
       subst_function = subst_scope;
-      classify_function = (fun (_,o) -> Substitute o);
+      classify_function = classify_scope;
       export_function = (fun (exp,_ as x) -> if exp then Some x else None) }
 
 let open_scope sc = Lib.add_anonymous_leaf (inScope sc)
-- 
cgit v1.2.3