From e148fce6fa35cc1bd3041ce18c87f5573f5bd596 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 13 Oct 1999 12:34:30 +0000
Subject:  - re-introduction d'une evar_map dans unsafe_env  - les var. ex.
 sont des entiers, et non plus des section_path

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

(limited to 'kernel/environ.ml')

diff --git a/kernel/environ.ml b/kernel/environ.ml
index c0f49ee1ef..f5de3e4e87 100644
--- a/kernel/environ.ml
+++ b/kernel/environ.ml
@@ -9,6 +9,7 @@ open Sign
 open Univ
 open Generic
 open Term
+open Evd
 open Constant
 open Inductive
 open Abstraction
@@ -29,6 +30,7 @@ type globals = {
 type unsafe_env = {
   env_context : context;
   env_globals : globals;
+  env_evar_map : evar_map;
   env_universes : universes }
 
 let empty_env = { 
@@ -39,10 +41,12 @@ let empty_env = {
     env_abstractions = Spmap.empty;
     env_locals = [];
     env_imports = [] };
+  env_evar_map = mt_evd;
   env_universes = initial_universes }
 
 let universes env = env.env_universes
 let context env = env.env_context
+let evar_map env = env.env_evar_map
 
 (* Construction functions. *)
 
-- 
cgit v1.2.3