From 48e48837748764657303bd062801a7381a434d11 Mon Sep 17 00:00:00 2001
From: Matej Košík <matej.kosik@inria.fr>
Date: Mon, 10 Apr 2017 16:03:56 +0200
Subject: Revert "refactoring: Names.DirPath.is_empty"

This reverts commit e180cce2384bacaa5ad5b9d6e15b55de8cc913cc.
---
 kernel/names.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/names.ml')

diff --git a/kernel/names.ml b/kernel/names.ml
index 5c10badbe..b91fa758f 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -178,7 +178,7 @@ struct
 
   let empty = []
 
-  let is_empty = List.is_empty
+  let is_empty d = match d with [] -> true | _ -> false
 
   let to_string = function
     | [] -> "<>"
-- 
cgit v1.2.3