aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Matej Košík <matej.kosik@inria.fr>2017-04-10 16:03:56 +0200
committerGravatar Matej Košík <matej.kosik@inria.fr>2017-04-10 16:03:56 +0200
commit48e48837748764657303bd062801a7381a434d11 (patch)
tree243e0e051061adc6d707f038f4a5a6ab470a41c9
parentf68833cf6969b787dd43257a33f0b2f9297ed599 (diff)
Revert "refactoring: Names.DirPath.is_empty"
-rw-r--r--kernel/names.ml2
1 files changed, 1 insertions, 1 deletions
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
| [] -> "<>"