diff options
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 8851ea2b6..14afcc4db 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -1111,6 +1111,8 @@ let create_clos_infos ?(evars=fun _ -> None) flgs env = create (fun _ -> inject) flgs env evars let oracle_of_infos infos = Environ.oracle infos.i_cache.i_env +let env_of_infos infos = infos.i_cache.i_env + let infos_with_reds infos reds = { infos with i_flags = reds } |