aboutsummaryrefslogtreecommitdiff
path: root/kernel/mod_typing.ml
diff options
context:
space:
mode:
Diffstat (limited to 'kernel/mod_typing.ml')
-rw-r--r--kernel/mod_typing.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml
index 941d219ba7..afde8d557c 100644
--- a/kernel/mod_typing.ml
+++ b/kernel/mod_typing.ml
@@ -209,7 +209,7 @@ and check_with_aux_mod env mtb with_decl now =
| With_Module (_,c) -> With_Module (idl,c) in
let cst,_,typ_opt =
check_with_aux_mod env'
- (type_of_mb env old) new_with_decl false in
+ (type_of_mb env' old) new_with_decl false in
if now then
let mtb' = lookup_modtype mp env' in
let mp' = scrape_alias mp env' in