diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2017-02-02 11:17:02 +0100 |
|---|---|---|
| committer | Matej Košík <matej.kosik@inria.fr> | 2017-04-10 13:16:57 +0200 |
| commit | 0d364f7aa5cee042f0b327966fce35778f3285e0 (patch) | |
| tree | c5a7e94c296a5a85de633146841a754753784ceb /kernel/names.ml | |
| parent | cd248e01d6834bc43d733c08b5955c332d2146a6 (diff) | |
refactoring: Names.DirPath.equal
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index ee8d838da..da02a32a2 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -173,10 +173,7 @@ struct if Int.equal c 0 then compare p1 p2 else c end - 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 equal = List.equal Id.equal let rec hash accu = function | [] -> accu |