diff options
author | Jasper Hugunin <jasperh@cs.washington.edu> | 2018-04-24 21:36:59 -0700 |
---|---|---|
committer | Jasper Hugunin <jasperh@cs.washington.edu> | 2018-04-24 21:36:59 -0700 |
commit | ea24fed3a1a91f945d0cce380d0ea1a9156e735e (patch) | |
tree | 69be6177e5bae042f8a70ceaa6aee5e195991f8b /library/lib.ml | |
parent | 72d6d5e87759b62dcd9974c87bf59496d27e10b0 (diff) |
Remove DirClosedSection.
This has been around for at least 16 years, with the comment
"this won't last long I hope".
https://github.com/coq/coq/commit/12965209478bd99dfbe57f07d5b525e51b903f22#diff-1a3a6f7bd5b2cf1bc6dd43ee04bbc3eaR112
Diffstat (limited to 'library/lib.ml')
-rw-r--r-- | library/lib.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/library/lib.ml b/library/lib.ml index 543cb45bc..fde13d0e3 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -580,13 +580,11 @@ let close_section () = in let (secdecls,mark,before) = split_lib_at_opening oname in lib_state := { !lib_state with lib_stk = before }; - let full_olddir = !lib_state.path_prefix.obj_dir in pop_path_prefix (); add_entry oname (ClosedSection (List.rev (mark::secdecls))); let newdecls = List.map discharge_item secdecls in Summary.unfreeze_summaries fs; - List.iter (Option.iter (fun (id,o) -> add_discharged_leaf id o)) newdecls; - Nametab.push_dir (Nametab.Until 1) full_olddir (DirClosedSection full_olddir) + List.iter (Option.iter (fun (id,o) -> add_discharged_leaf id o)) newdecls (* State and initialization. *) |