diff options
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index d4cc60719..424cf1f73 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -80,7 +80,11 @@ let is_dirpath_prefix_of d1 d2 = let chop_dirpath n d = let d1,d2 = list_chop n (List.rev (repr_dirpath d)) in - make_dirpath (List.rev d1), make_dirpath (List.rev d2) + make_dirpath (List.rev d1), make_dirpath (List.rev d2) + +let drop_dirpath_prefix d1 d2 = + let d = Util.list_drop_prefix (List.rev (repr_dirpath d1)) (List.rev (repr_dirpath d2)) in + make_dirpath (List.rev d) (* To know how qualified a name should be to be understood in the current env*) let add_dirpath_prefix id d = make_dirpath (repr_dirpath d @ [id]) |