From 2e317e5b77bff0b60420d490b633cec72b0a6725 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 7 Feb 2001 14:13:44 +0000
Subject: Message d'erreur absolute_reference

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1343 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/nametab.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/nametab.ml b/library/nametab.ml
index 595f699a4e..821de2a0b2 100755
--- a/library/nametab.ml
+++ b/library/nametab.ml
@@ -150,7 +150,7 @@ let constant_sp_of_id id =
 
 let check_absoluteness = function
   | a::_ when List.mem a !roots -> ()
-  | _ -> anomaly "Not an absolute path"
+  | l -> anomaly ("Not an absolute path: "^(string_of_dirpath l))
 
 let absolute_reference sp =
   check_absoluteness (dirpath sp);
-- 
cgit v1.2.3