diff options
| author | Pierre-Marie Pédrot | 2019-06-28 22:37:42 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-16 17:44:49 +0200 |
| commit | 60596e870bcb481673fd3108fc1b6478df5a2621 (patch) | |
| tree | 6f0beb4fc3378c28a1dcbeb5232d7f20079344c9 /library/global.ml | |
| parent | 1f2a3fe97be66fd3201b9c98e5744953d4149b91 (diff) | |
Split the function used to declare side-effects from the standard one.
This ensures that side-effect declarations come with their body, in prevision
of the decoupling of the Safe_typign API for CEP 40.
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/global.ml b/library/global.ml index 24cfc57f28..98d3e9cb1f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -103,7 +103,8 @@ let make_sprop_cumulative () = globalize0 Safe_typing.make_sprop_cumulative let set_allow_sprop b = globalize0 (Safe_typing.set_allow_sprop b) let sprop_allowed () = Environ.sprop_allowed (env()) let export_private_constants cd = globalize (Safe_typing.export_private_constants cd) -let add_constant ~side_effect id d = globalize (Safe_typing.add_constant ~side_effect (i2l id) d) +let add_constant id d = globalize (Safe_typing.add_constant (i2l id) d) +let add_private_constant id d = globalize (Safe_typing.add_private_constant (i2l id) d) let add_mind id mie = globalize (Safe_typing.add_mind (i2l id) mie) let add_modtype id me inl = globalize (Safe_typing.add_modtype (i2l id) me inl) let add_module id me inl = globalize (Safe_typing.add_module (i2l id) me inl) |