diff options
| author | herbelin | 2000-10-03 18:10:47 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-03 18:10:47 +0000 |
| commit | 7c9ee80ea7f6beeddbf922b46f8436d92c0b27ce (patch) | |
| tree | 8a87902ccd6f3c0663d915fb43288fd6762637b5 /kernel/environ.ml | |
| parent | 33d14679b922ae0a15c10e788335f23a3a64c643 (diff) | |
Rebranchement de la tactique Let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@638 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 100db950f0..0c6167a15c 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -88,6 +88,9 @@ let fold_var_context f env a = (fun d (env,e) -> (push_var d env, f env d e)) (var_context env) (reset_context env,a)) +let fold_var_context_reverse f a env = + Sign.fold_var_context_reverse f a (var_context env) + let process_var_context f env = Sign.fold_var_context (fun d env -> f env d) (var_context env) (reset_context env) |