From bccbff00b5a4fb3936fbfda1e08ea36776df6e82 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 11 Nov 2000 13:00:14 +0000
Subject: Code more concernant feu les abstractions

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@845 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/environ.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'kernel')

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;
-- 
cgit v1.2.3