From 648c594489f8d0ffdde9596b87f5c1ff6ccef612 Mon Sep 17 00:00:00 2001 From: letouzey Date: Mon, 18 Feb 2013 13:57:09 +0000 Subject: Minor code cleanups, especially take advantage of Dir_path.is_empty git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16210 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/libnames.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'library/libnames.ml') diff --git a/library/libnames.ml b/library/libnames.ml index 902222431..9f129793e 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -83,7 +83,7 @@ type full_path = { let eq_full_path p1 p2 = Id.equal p1.basename p2.basename && - Int.equal (Dir_path.compare p1.dirpath p2.dirpath) 0 + Dir_path.equal p1.dirpath p2.dirpath let make_path pa id = { dirpath = pa; basename = id } @@ -163,8 +163,8 @@ type global_dir_reference = (* this won't last long I hope! *) let eq_op (d1, (mp1, p1)) (d2, (mp2, p2)) = - Int.equal (Dir_path.compare d1 d2) 0 && - Int.equal (Dir_path.compare p1 p2) 0 && + Dir_path.equal d1 d2 && + Dir_path.equal p1 p2 && mp_eq mp1 mp2 let eq_global_dir_reference r1 r2 = match r1, r2 with @@ -172,7 +172,7 @@ 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 -> Int.equal (Dir_path.compare dp1 dp2) 0 +| DirClosedSection dp1, DirClosedSection dp2 -> Dir_path.equal dp1 dp2 | _ -> false type reference = -- cgit v1.2.3