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 /vernac | |
| parent | d1091555104e0198eaaa94a1bb69e96d5cc73447 (diff) | |
Introduce Safe_typing.set_share_reduction
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 4df50a5e23..5eace14cbf 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1536,7 +1536,7 @@ let _ = optname = "kernel term sharing"; optkey = ["Kernel"; "Term"; "Sharing"]; optread = (fun () -> (Global.typing_flags ()).Declarations.share_reduction); - optwrite = (fun b -> Global.set_typing_flags { (Global.typing_flags ()) with Declarations.share_reduction = b }) } + optwrite = Global.set_share_reduction } let _ = declare_bool_option |