diff options
| author | Pierre-Marie Pédrot | 2019-06-19 21:24:36 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-24 11:02:11 +0200 |
| commit | be3bba54e39a316ded975b7c5ac5723fed41aa88 (patch) | |
| tree | 7f801ebcb9544af86394b1727c8c5733b898506b /kernel/safe_typing.ml | |
| parent | 4ceadecf179e9210eed42ef4847aa5ab8fa28bd6 (diff) | |
Enforce that transparent entries are forced beforehand.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index c99edccda7..ab58321ac7 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -698,7 +698,7 @@ let constant_entry_of_side_effect eff = const_entry_inline_code = cb.const_inline_code } else DefinitionEntry { - const_entry_body = Future.from_val ((p, Univ.ContextSet.empty), ()); + const_entry_body = (p, Univ.ContextSet.empty); const_entry_secctx = None; const_entry_feedback = None; const_entry_type = Some cb.const_type; |