diff options
author | 2006-11-21 21:38:49 +0000 | |
---|---|---|
committer | 2006-11-21 21:38:49 +0000 | |
commit | 70b9be8acc1d1ada178a95c1cd4013506e9d0d1b (patch) | |
tree | f672a286d962cc67c95874b3b60402fc957870b6 /kernel/environ.mli | |
parent | a5bd4e097a94cc4f863bf4d4bcc5ce592c30ba47 (diff) | |
parent | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (diff) |
Merge commit 'upstream/8.1.gamma' into 8.1
Diffstat (limited to 'kernel/environ.mli')
-rw-r--r-- | kernel/environ.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/kernel/environ.mli b/kernel/environ.mli index cfc23651..3728eea3 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: environ.mli 8810 2006-05-12 18:50:21Z barras $ i*) +(*i $Id: environ.mli 9310 2006-10-28 19:35:09Z herbelin $ i*) (*i*) open Names @@ -129,7 +129,7 @@ type const_evaluation_result = NoBody | Opaque exception NotEvaluableConst of const_evaluation_result val constant_value : env -> constant -> constr -val constant_type : env -> constant -> types +val constant_type : env -> constant -> constant_type val constant_opt_value : env -> constant -> constr option (************************************************************************) @@ -165,6 +165,7 @@ val set_engagement : engagement -> env -> env (* [global_vars_set env c] returns the list of [id]'s occurring as [VAR id] in [c] *) val global_vars_set : env -> constr -> Idset.t +val global_vars_set_drop_evar : env -> constr -> Idset.t (* the constr must be an atomic construction *) val vars_of_global : env -> constr -> identifier list |