diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-15 17:46:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-26 15:11:52 +0200 |
| commit | 3fcf0930874d7200f2503ac7084b1d6669d59540 (patch) | |
| tree | f4801ab2074dbcf21f691230ae1ea83dff2fc71a /library/global.ml | |
| parent | 3c6679676c3963b7c3ec7c1eadbf24ae70311408 (diff) | |
Remove a horrendous hack in Declare to retrieve exported side-effects.
Instead of relying on a mutable state in the object pushed on the libstack,
we export an API in the kernel that exports the side-effects of a given
entry in the global environment.
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 5b17855dc..00a3a4986 100644 --- a/library/global.ml +++ b/library/global.ml @@ -86,6 +86,7 @@ let push_context b c = globalize0 (Safe_typing.push_context b c) let set_engagement c = globalize0 (Safe_typing.set_engagement c) let set_typing_flags c = globalize0 (Safe_typing.set_typing_flags c) +let export_private_constants ~in_section cd = globalize (Safe_typing.export_private_constants ~in_section cd) let add_constant dir id d = globalize (Safe_typing.add_constant dir (i2l id) d) let add_mind dir id mie = globalize (Safe_typing.add_mind dir (i2l id) mie) let add_modtype id me inl = globalize (Safe_typing.add_modtype (i2l id) me inl) |