aboutsummaryrefslogtreecommitdiff
path: root/kernel/modops.ml
diff options
context:
space:
mode:
Diffstat (limited to 'kernel/modops.ml')
-rw-r--r--kernel/modops.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml
index 9aba4d5606..0a18978327 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -195,7 +195,9 @@ let strengthen_const env mp l cb =
let const_subs = Some (Declarations.from_val const) in
{cb with
const_body = const_subs;
- const_opaque = false
+ const_opaque = false;
+ const_body_code = Cemitcodes.from_val
+ (Cbytegen.compile_constant_body env const_subs false false)
}
let strengthen_mind env mp l mib = match mib.mind_equiv with