From 69d0152e00c2a3c7341bef36dcb110a2c4263ccf Mon Sep 17 00:00:00 2001
From: Matej Košík
Date: Mon, 10 Apr 2017 16:04:08 +0200
Subject: Revert "refactoring: Names.DirPath.equal"

This reverts commit 0d364f7aa5cee042f0b327966fce35778f3285e0.
---
 kernel/names.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/names.ml b/kernel/names.ml
index da02a32a28..ee8d838da1 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
-- 
cgit v1.2.3