diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-01 08:20:00 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-01 08:20:00 +0000 |
| commit | b91ae6a8900b368af0a3acc0a61a8af0db783991 (patch) | |
| tree | 83655138d0dfc193b046f34c63150ff9d187b9e4 /library/global.ml | |
| parent | dda7c7bb0b6ea0c2106459d8ae208eff0dfd6738 (diff) | |
- environment -> safe_environment
- unsafe_env -> env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/global.ml b/library/global.ml index 0fc1852cb..5cefe53f6 100644 --- a/library/global.ml +++ b/library/global.ml @@ -14,9 +14,9 @@ open Summary let global_env = ref empty_environment -let env () = !global_env +let safe_env () = !global_env -let unsafe_env () = unsafe_env_of_env !global_env +let env () = env_of_safe_env !global_env let _ = declare_summary "Global environment" @@ -48,7 +48,7 @@ let import cenv = global_env := import cenv !global_env (* Some instanciations of functions from [Environ]. *) -let id_of_global = Environ.id_of_global (unsafe_env_of_env !global_env) +let id_of_global = Environ.id_of_global (env_of_safe_env !global_env) (* Re-exported functions of [Inductive], composed with [lookup_mind_specif]. *) |