diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-18 13:57:09 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-18 13:57:09 +0000 |
commit | 648c594489f8d0ffdde9596b87f5c1ff6ccef612 (patch) | |
tree | 8fef1eb15cad0a445ba9a07fe9f0f4c06febe727 /library/libnames.ml | |
parent | 5d777a578b2973f57dffa9ca38d76bfda0551498 (diff) |
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
Diffstat (limited to 'library/libnames.ml')
-rw-r--r-- | library/libnames.ml | 8 |
1 files changed, 4 insertions, 4 deletions
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 = |