diff options
author | 2001-02-07 14:13:44 +0000 | |
---|---|---|
committer | 2001-02-07 14:13:44 +0000 | |
commit | 2e317e5b77bff0b60420d490b633cec72b0a6725 (patch) | |
tree | 02e7fabb85d6b30dcbea7f2b4965d28450d9cfa2 /library | |
parent | ec8f65e10b38a5cad9235281d5799cad76200bbb (diff) |
Message d'erreur absolute_reference
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1343 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
-rwxr-xr-x | library/nametab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 595f699a4..821de2a0b 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); |