From e8ef565dadd110329f806fa3c281055fcd807440 Mon Sep 17 00:00:00 2001
From: lmamane
Date: Fri, 22 Feb 2008 13:39:13 +0000
Subject: Merge with lmamane's private branch:  - New vernac command "Delete" 
 - New vernac command "Undo To"  - Added a few hooks used by new
 contrib/interface  - Beta/incomplete version of dependency generation and
 dumping

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

(limited to 'kernel')

diff --git a/kernel/environ.ml b/kernel/environ.ml
index b1290452a9..64bb3a6664 100644
--- a/kernel/environ.ml
+++ b/kernel/environ.ml
@@ -83,6 +83,7 @@ let fold_rel_context f env ~init =
 (* Named context *)
 
 let named_context_of_val = fst
+let named_vals_of_val = snd
 
 (* [map_named_val f ctxt] apply [f] to the body and the type of
    each declarations.
diff --git a/kernel/environ.mli b/kernel/environ.mli
index 10e9626747..19c67435c8 100644
--- a/kernel/environ.mli
+++ b/kernel/environ.mli
@@ -73,6 +73,7 @@ val fold_rel_context :
 (* Context of variables (section variables and goal assumptions) *)
 
 val named_context_of_val : named_context_val -> named_context
+val named_vals_of_val : named_context_val -> Pre_env.named_vals
 val val_of_named_context : named_context -> named_context_val
 val empty_named_context_val : named_context_val
 
-- 
cgit v1.2.3