diff options
| author | Maxime Dénès | 2020-02-03 09:23:52 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2020-02-03 09:23:52 +0100 |
| commit | 54f45f5c89f003b4ed2a6e13fdda88d05ee45c83 (patch) | |
| tree | a0b8403d44d261c3af7cf1df09a21055a818c2f3 /kernel | |
| parent | 0ffd145a082f69aeb3980717f501d5c1c503a996 (diff) | |
| parent | 9316e4227311720e33e0b002b57626312d7d1245 (diff) | |
Merge PR #11481: Do not rely on Libobject for the current environment in extraction.
Reviewed-by: maximedenes
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 2 | ||||
| -rw-r--r-- | kernel/safe_typing.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index f6f2058c13..e8adde2605 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -321,6 +321,8 @@ let universes_of_private eff = let env_of_safe_env senv = senv.env let env_of_senv = env_of_safe_env +let structure_body_of_safe_env env = env.revstruct + let sections_of_safe_env senv = senv.sections let get_section = function diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 92bbd264fa..e6f2fc4a5d 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -37,6 +37,8 @@ val env_of_safe_env : safe_environment -> Environ.env val sections_of_safe_env : safe_environment -> section_data Section.t option +val structure_body_of_safe_env : safe_environment -> Declarations.structure_body + (** The safe_environment state monad *) type safe_transformer0 = safe_environment -> safe_environment |