diff options
| author | Maxime Dénès | 2018-10-31 16:09:43 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-31 16:16:41 +0100 |
| commit | c3ea3cd8a2bd29fc0129e34af4a1689bbf7519a5 (patch) | |
| tree | c4abbf08afd6f11a96b28f31e06571a10f12dac7 /kernel/safe_typing.ml | |
| parent | d1091555104e0198eaaa94a1bb69e96d5cc73447 (diff) | |
Introduce Safe_typing.set_share_reduction
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 12f9592ab7..90b89995ee 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -194,6 +194,10 @@ let set_engagement c senv = let set_typing_flags c senv = { senv with env = Environ.set_typing_flags c senv.env } +let set_share_reduction b senv = + let flags = Environ.typing_flags senv.env in + set_typing_flags { flags with share_reduction = b } senv + (** Check that the engagement [c] expected by a library matches the current (initial) one *) let check_engagement env expected_impredicative_set = |