diff options
| author |  soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-06 13:59:59 +0000 |
|---|---|---|
| committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-06 13:59:59 +0000 |
| commit | 94fc8064371e5a786de28188cac0b0b2bc80ebba (patch) | |
| tree | 612cbb007ece3971b5e94571568c164f5a61468e /library/declaremods.ml | |
| parent | a20562873304a657cb7d813c75f9bc34c24dbeb6 (diff) | |
correction bug 2085
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12052 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/declaremods.ml')
| -rw-r--r-- | library/declaremods.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index d8808b6db..129ea4ef2 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -1145,8 +1145,8 @@ let declare_module interp_modtype interp_modexpr id args mty_o mexpr_o = | _ -> let dir,mp = dir_of_sp (Lib.make_path id), mp_of_kn (Lib.make_kn id) in let (sub,mbids,msid,objs) = substobjs in - let sub' = subst_key (map_msid msid mp) sub in - let substobjs = (join sub sub',mbids,msid,objs) in + let sub' = join_alias (subst_key (map_msid msid mp) sub) (map_msid msid mp) in + let substobjs = ( sub',mbids,msid,objs) in let substituted = subst_substobjs dir mp substobjs in ignore (add_leaf id |