Filepath fix.

This commit is contained in:
Erik Svedäng 2018-11-26 21:19:41 +01:00
parent 9a5392eb73
commit b42e506fc3

View File

@ -7,6 +7,6 @@
(let [segments (split-by path &[\/])
n (dec (length &segments))
without-last (prefix-array &segments n)]
(concat &(copy-map (fn [s] (str* s "/")) &without-last))))
(concat &(copy-map &(fn [s] (str* s "/")) &without-last))))
)