diff options
| author | Maxime Dénès | 2018-11-27 11:06:18 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-27 11:06:18 +0100 |
| commit | 31a1fa82bfc747df0c71c93346f689def876794a (patch) | |
| tree | fac54469054681647ab0659bdfeddcdb74eda4f9 /kernel/safe_typing.ml | |
| parent | 5fcf1b7dcd9b20ea7c5ad317ce2bfe4fbb5452d9 (diff) | |
| parent | ec209ea02cb8fa86f09aff88d0464c865ed7b8a5 (diff) | |
Merge PR #8986: Put -indices-matter in typing_flags
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 83d890b628..b7f1e93062 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -196,6 +196,9 @@ let set_typing_flags c senv = if env == senv.env then senv else { senv with env } +let set_indices_matter indices_matter senv = + set_typing_flags { (Environ.typing_flags senv.env) with indices_matter } senv + let set_share_reduction b senv = let flags = Environ.typing_flags senv.env in set_typing_flags { flags with share_reduction = b } senv |