aboutsummaryrefslogtreecommitdiff
path: root/library/libnames.ml
diff options
context:
space:
mode:
authorEnrico Tassi2018-05-11 19:10:52 +0200
committerEnrico Tassi2018-05-11 19:10:52 +0200
commit7dd881fc72d62eb0c1f1e5063eb3a8ed268fb5d5 (patch)
tree6504707bb85c3ea9dcae9389a9e8ec639159a753 /library/libnames.ml
parent7a6cac1942281fbd66c0e46e3be068b9198addce (diff)
parentea24fed3a1a91f945d0cce380d0ea1a9156e735e (diff)
Merge PR #7340: Remove DirClosedSection.
Diffstat (limited to 'library/libnames.ml')
-rw-r--r--library/libnames.ml3
1 files changed, 0 insertions, 3 deletions
diff --git a/library/libnames.ml b/library/libnames.ml
index d847313221..4ceea480d2 100644
--- a/library/libnames.ml
+++ b/library/libnames.ml
@@ -174,8 +174,6 @@ type global_dir_reference =
| DirOpenModtype of object_prefix
| DirOpenSection of object_prefix
| DirModule of object_prefix
- | DirClosedSection of DirPath.t
- (* this won't last long I hope! *)
let eq_op op1 op2 =
DirPath.equal op1.obj_dir op2.obj_dir &&
@@ -187,7 +185,6 @@ let eq_global_dir_reference r1 r2 = match r1, r2 with
| DirOpenModtype op1, DirOpenModtype op2 -> eq_op op1 op2
| DirOpenSection op1, DirOpenSection op2 -> eq_op op1 op2
| DirModule op1, DirModule op2 -> eq_op op1 op2
-| DirClosedSection dp1, DirClosedSection dp2 -> DirPath.equal dp1 dp2
| _ -> false
type reference_r =