diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-08-24 11:17:00 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-09-02 11:29:41 +0200 |
commit | 7befcc7ea63ea4bd6e45e6f4b8ec01a69b586cc7 (patch) | |
tree | 470fc001243f986487e0cc1060db4aebd9e0987d /library/declaremods.ml | |
parent | 3c5daf4e23ee20f0788c0deab688af452e83ccf0 (diff) |
Fix Declaremods.end_library (Closes: #3536)
Diffstat (limited to 'library/declaremods.ml')
-rw-r--r-- | library/declaremods.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index e4f227637..bf6fe9f0d 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -874,8 +874,9 @@ let start_library dir = Lib.add_frozen_state () let end_library dir = + let oname = Lib.end_compilation_checks dir in let mp,cenv,ast = Global.export dir in - let prefix, lib_stack = Lib.end_compilation dir in + let prefix, lib_stack = Lib.end_compilation oname in assert (ModPath.equal mp (MPfile dir)); let substitute, keep, _ = Lib.classify_segment lib_stack in cenv,(substitute,keep),ast |