diff options
| author | barras | 2005-11-23 15:10:16 +0000 |
|---|---|---|
| committer | barras | 2005-11-23 15:10:16 +0000 |
| commit | fd9eb182a5a45d04c634ea17e2225dddbf667033 (patch) | |
| tree | a29dd14f575b518231d72d395999966425ca33eb /kernel | |
| parent | e5f90d8f6b7db4d63b3d21afabff1d6879d53a34 (diff) | |
bug #909: Top n'est cree que si le contexte est vide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7602 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 10 | ||||
| -rw-r--r-- | kernel/safe_typing.mli | 1 |
2 files changed, 7 insertions, 4 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 737f771841..9b638427cb 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -426,11 +426,13 @@ type compiled_library = (* We check that only initial state Require's were performed before [start_library] was called *) +let is_empty senv = + senv.revsign = [] && + senv.modinfo.msid = initial_msid && + senv.modinfo.variant = NONE + let start_library dir senv = - if not (senv.revsign = [] && - senv.modinfo.msid = initial_msid && - senv.modinfo.variant = NONE) - then + if not (is_empty senv) then anomaly "Safe_typing.start_library: environment should be empty"; let dir_path,l = match (repr_dirpath dir) with diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 9b5d78870f..83aa3e9433 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -28,6 +28,7 @@ type safe_environment val env_of_safe_env : safe_environment -> Environ.env val empty_environment : safe_environment +val is_empty : safe_environment -> bool (* Adding and removing local declarations (Local or Variables) *) val push_named_assum : |