Source
swank/loader.clj:36
top
(defn relative-path-name [#^File parent #^File file]
(let [file-name (str file)
parent-name (str parent)]
(when (.startsWith file-name parent-name)
(.substring file-name (inc (.length parent-name))))))
Comments top
No comments for relative-path-name. Log in to add a comment.