diff options
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) |