diff options
| author | Maxime Dénès | 2018-11-17 19:57:42 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-11-17 19:57:42 +0100 |
| commit | 8e79fa301c285e4016997eff0e90ce5d9df46ad9 (patch) | |
| tree | 884db5871057e0a7f1a21b7a9c8ce820991ac7f4 /kernel/safe_typing.ml | |
| parent | 35e4602164a10262ace560c5bf41cf040cfcf0f0 (diff) | |
| parent | b7203d14aad300c0ef02f66516ce0595182c81cd (diff) | |
Merge PR #8712: [stm] avoid unshare safe env to detect correctly env changing tactics
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index df10398b2f..2464df799e 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -192,7 +192,9 @@ let set_engagement c senv = engagement = Some c } let set_typing_flags c senv = - { senv with env = Environ.set_typing_flags c senv.env } + let env = Environ.set_typing_flags c senv.env in + if env == senv.env then senv + else { senv with env } let set_share_reduction b senv = let flags = Environ.typing_flags senv.env in |