diff options
| author | coq | 2003-01-27 18:13:32 +0000 |
|---|---|---|
| committer | coq | 2003-01-27 18:13:32 +0000 |
| commit | 5816479511c4702d9e7159a9045718565bb62545 (patch) | |
| tree | 60354d6ec809baf5c1c1bd52f61427da5b7ab786 /library | |
| parent | 1c33be3447e435b8bbe561f3bb5766ab25f153c9 (diff) | |
Deux p\'tits trucs ;)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3614 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/declaremods.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index 58e672433d..814d408bf7 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -517,6 +517,8 @@ let end_module id = Not_found -> anomaly "Module objects not found..." in + (* must be called after get_modtype_substobjs, because of possible + dependencies on functor arguments *) Summary.unfreeze_other_summaries fs; let substituted = subst_substobjs dir mp substobjs in @@ -575,7 +577,7 @@ let register_library dir cenv objs digest = Hashtbl.add library_cache dir modobjs; modobjs in - do_module false "register_compilation" load_objects 1 dir mp substobjs objects + do_module false "register_library" load_objects 1 dir mp substobjs objects let start_library dir = |