From 7d8659eb7eb4b9956ffb6f1868947b83ca926bd0 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 14 Apr 2008 22:35:20 +0000 Subject: suite 10790 (identificateurs) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10791 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/names.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'kernel') diff --git a/kernel/names.ml b/kernel/names.ml index 125c9b6de4..60b5b6e421 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -65,9 +65,8 @@ let repr_dirpath x = x let empty_dirpath = [] let string_of_dirpath = function - | [] -> "" - | sl -> - String.concat "." (List.map string_of_id (List.rev sl)) + | [] -> "_empty_" + | sl -> String.concat "." (List.map string_of_id (List.rev sl)) let u_number = ref 0 -- cgit v1.2.3