diff options
| -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 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); |