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/lib.ml | |
parent | 3c5daf4e23ee20f0788c0deab688af452e83ccf0 (diff) |
Fix Declaremods.end_library (Closes: #3536)
Diffstat (limited to 'library/lib.ml')
-rw-r--r-- | library/lib.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/lib.ml b/library/lib.ml index 1ee3ca57b..f33f244b8 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -313,7 +313,7 @@ let start_compilation s mp = comp_name := Some s; path_prefix := prefix -let end_compilation dir = +let end_compilation_checks dir = let _ = try match snd (find_entry_p is_opening_node) with | OpenedSection _ -> error "There are some open sections." @@ -338,6 +338,9 @@ let end_compilation dir = (str "The current open module has name" ++ spc () ++ pr_dirpath m ++ spc () ++ str "and not" ++ spc () ++ pr_dirpath m); in + oname + +let end_compilation oname = let (after,mark,before) = split_lib_at_opening oname in comp_name := None; !path_prefix,after |