diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-01-17 20:35:43 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-01-17 20:35:43 +0100 |
| commit | 4a96baf41965249c77b390dd252e8fa36b806c5f (patch) | |
| tree | e003fc27bdd641d3aa7414b92fd3c6c492e1cbf0 /kernel | |
| parent | 5e5d51762df0e34769225e8c59c77b97b1212c29 (diff) | |
Fix #3379, now that Require inside modules is allowed again.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 3a16bf806..20cecc84a 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -497,7 +497,9 @@ let add_modtype l params_mte inl senv = let full_add_module mb senv = let senv = add_constraints (Now mb.mod_constraints) senv in - { senv with env = Modops.add_module mb senv.env } + let dp = ModPath.dp mb.mod_mp in + let linkinfo = Nativecode.link_info_of_dirpath dp in + { senv with env = Modops.add_linked_module mb linkinfo senv.env } let full_add_module_type mp mt senv = let senv = add_constraints (Now mt.mod_constraints) senv in |