diff options
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 5a3dade53..407ae73ca 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -95,7 +95,7 @@ and check_with_aux_def env sign with_decl mp equiv = let cb' = {cb with const_body = body; const_body_code = Cemitcodes.from_val - (compile_constant_body env' body false false); + (compile_constant_body env' body false); const_constraints = cst} in SEBstruct(before@((l,SFBconst(cb'))::after)),cb',cst | Some b -> @@ -105,7 +105,7 @@ and check_with_aux_def env sign with_decl mp equiv = let cb' = {cb with const_body = body; const_body_code = Cemitcodes.from_val - (compile_constant_body env' body false false); + (compile_constant_body env' body false); const_constraints = cst} in SEBstruct(before@((l,SFBconst(cb'))::after)),cb',cst end |