diff options
| author | soubiran | 2008-12-18 15:53:23 +0000 |
|---|---|---|
| committer | soubiran | 2008-12-18 15:53:23 +0000 |
| commit | f07768cd1b8373801ec5375ee79c800f98403828 (patch) | |
| tree | 1b5c0e6e81b8f25b40858d7144ce84e1b9c75e53 | |
| parent | eed07abbc3c43e690c9be390ef860c52a63c63e5 (diff) | |
Correction d'un bug causant un Not_found dans la contrib FSet.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11702 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/declaremods.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index 4fc9d10b67..76487af686 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -659,8 +659,8 @@ let rec get_modtype_substobjs env = function (* application outside the kernel, only for substitutive objects (that are all non-logical objects) *) ((join - (join subst (map_mbid mbid mp (Some resolve))) - sub3) + (join subst sub3) + (map_mbid mbid mp (Some resolve))) , mbids, msid, objs) | [] -> match mexpr with | MSEident _ -> error "Application of a non-functor" @@ -966,8 +966,8 @@ let rec get_module_substobjs env = function (* application outside the kernel, only for substitutive objects (that are all non-logical objects) *) ((join - (join subst (map_mbid mbid mp (Some resolve))) - sub3) + (join subst sub3) + (map_mbid mbid mp (Some resolve))) , mbids, msid, objs) | [] -> match mexpr with | MSEident _ -> error "Application of a non-functor" |