aboutsummaryrefslogtreecommitdiff
path: root/library/libnames.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-07-04 10:27:35 +0200
committerEmilio Jesus Gallego Arias2019-07-04 10:27:35 +0200
commit1c9aa339042030f756d1957abed7d3b698ff83f5 (patch)
treeea8da28bdd5b230974cdf3c3fa35fbd9d411963d /library/libnames.ml
parenta661aadbc7120b93ccf8507c0173ffd6cfa3a0f8 (diff)
parent1cc661d18f67f71a494b525b1f82fd9133ee5a3c (diff)
Merge PR #10461: Simplify Declare.declare_variable
Reviewed-by: ejgallego Reviewed-by: maximedenes Reviewed-by: ppedrot
Diffstat (limited to 'library/libnames.ml')
-rw-r--r--library/libnames.ml5
1 files changed, 0 insertions, 5 deletions
diff --git a/library/libnames.ml b/library/libnames.ml
index 18af216e46..485f8837e8 100644
--- a/library/libnames.ml
+++ b/library/libnames.ml
@@ -128,11 +128,6 @@ let path_of_string s =
let pr_path sp = str (string_of_path sp)
-let restrict_path n sp =
- let dir, s = repr_path sp in
- let dir' = List.firstn n (DirPath.repr dir) in
- make_path (DirPath.make dir') s
-
(*s qualified names *)
type qualid_r = full_path
type qualid = qualid_r CAst.t