diff options
| author | letouzey | 2011-09-05 16:47:03 +0000 |
|---|---|---|
| committer | letouzey | 2011-09-05 16:47:03 +0000 |
| commit | ac2ca408aef1759e4682d989a40ab332068edcdb (patch) | |
| tree | c33bd5f94b5da11544706492d5746e8894c05f0a /toplevel | |
| parent | 98db1b73f6ab89763ef386a2055528db91e4e152 (diff) | |
Lib.node: merge OpenedModtype and OpenedModule, same for Closed...
This allows more sharing of code (cf. start_module / end_module)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14452 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 465302a234..1b25fb9263 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -594,10 +594,10 @@ let vernac_end_section (loc,_) = let vernac_end_segment (_,id as lid) = check_no_pending_proofs (); match Lib.find_opening_node id with - | Lib.OpenedModule (export,_,_) -> vernac_end_module export lid - | Lib.OpenedModtype _ -> vernac_end_modtype lid + | Lib.OpenedModule (false,export,_,_) -> vernac_end_module export lid + | Lib.OpenedModule (true,_,_,_) -> vernac_end_modtype lid | Lib.OpenedSection _ -> vernac_end_section lid - | _ -> anomaly "No more opened things" + | _ -> assert false (* Libraries *) |