diff options
| author | herbelin | 2003-04-08 11:25:08 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-08 11:25:08 +0000 |
| commit | d70cc5482d151031649f65fee4ad12f8e9fb669d (patch) | |
| tree | 3822ebb4657ef245a1c1eda53fef30f9bb3e4ff8 | |
| parent | aa70c6ef2ff8fbca8341575b5e3f555412bb3a90 (diff) | |
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
| -rw-r--r-- | interp/symbols.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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) |