diff options
| author | herbelin | 2000-11-11 13:00:14 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-11 13:00:14 +0000 |
| commit | bccbff00b5a4fb3936fbfda1e08ea36776df6e82 (patch) | |
| tree | f21915d928bc54432f08caf76e0b2761e264ef48 /kernel | |
| parent | 6c9a07a1d1618159780cf1f8fdb5a9785da55d68 (diff) | |
Code more concernant feu les abstractions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@845 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 7501471e54..d95a872536 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -330,14 +330,14 @@ type compiled_env = { let exported_objects env = let gl = env.env_globals in - let separate (cst,ind,abs) = function - | (Constant,sp) -> (sp,Spmap.find sp gl.env_constants)::cst,ind,abs - | (Inductive,sp) -> cst,(sp,Spmap.find sp gl.env_inductives)::ind,abs + let separate (cst,ind) = function + | (Constant,sp) -> (sp,Spmap.find sp gl.env_constants)::cst,ind + | (Inductive,sp) -> cst,(sp,Spmap.find sp gl.env_inductives)::ind in - List.fold_left separate ([],[],[]) gl.env_locals + List.fold_left separate ([],[]) gl.env_locals let export env id = - let (cst,ind,abs) = exported_objects env in + let (cst,ind) = exported_objects env in { cenv_id = id; cenv_stamp = 0; cenv_needed = env.env_globals.env_imports; |