diff options
author | Matej Košík <matej.kosik@inria.fr> | 2017-04-10 16:04:08 +0200 |
---|---|---|
committer | Matej Košík <matej.kosik@inria.fr> | 2017-04-10 16:04:08 +0200 |
commit | 69d0152e00c2a3c7341bef36dcb110a2c4263ccf (patch) | |
tree | 1fb6a18883a41e2836909f66f3e9a9aa84689bb9 /kernel/names.ml | |
parent | 22bda93212ec143402e7f2fb8dbff3b4485a0f9c (diff) |
Revert "refactoring: Names.DirPath.equal"
This reverts commit 0d364f7aa5cee042f0b327966fce35778f3285e0.
Diffstat (limited to 'kernel/names.ml')
-rw-r--r-- | kernel/names.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index da02a32a2..ee8d838da 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -173,7 +173,10 @@ struct if Int.equal c 0 then compare p1 p2 else c end - let equal = List.equal Id.equal + let rec equal p1 p2 = p1 == p2 || match p1, p2 with + | [], [] -> true + | id1 :: p1, id2 :: p2 -> Id.equal id1 id2 && equal p1 p2 + | _ -> false let rec hash accu = function | [] -> accu |