diff options
-rw-r--r-- | kernel/names.ml | 2 |
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 | [] -> "<>" |