diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-26 13:33:47 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-26 13:33:47 +0000 |
| commit | 9f2d6ca25f784bd877c65e4fe20d5a3f6aee784d (patch) | |
| tree | 296875ce00fa2847c930fd8c545247ef0bf2b6ef /kernel | |
| parent | 1700df5002f7fc2e16c3a8c180cb5d5ead97a390 (diff) | |
Environ.set_universes is dead code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14613 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 5 | ||||
| -rw-r--r-- | kernel/environ.mli | 1 |
2 files changed, 0 insertions, 6 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 59336a762..7759efb67 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -195,11 +195,6 @@ let add_mind kn mib env = { env with env_globals = new_globals } (* Universe constraints *) -let set_universes g env = - if env.env_stratification.env_universes == g then env - else - { env with env_stratification = - { env.env_stratification with env_universes = g } } let add_constraints c env = if c == empty_constraint then diff --git a/kernel/environ.mli b/kernel/environ.mli index aa6f52128..42100e4eb 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -152,7 +152,6 @@ val lookup_modtype : module_path -> env -> module_type_body (** {5 Universe constraints } *) -val set_universes : Univ.universes -> env -> env val add_constraints : Univ.constraints -> env -> env val set_engagement : engagement -> env -> env |