diff --git a/fs b/fs index 1beb91cd..5339280e 160000 --- a/fs +++ b/fs @@ -1 +1 @@ -Subproject commit 1beb91cd5f352d1e3a914c94e7ec25a2644b07e5 +Subproject commit 5339280ee1006de65b6461ed08cfdf2a7b7a4b10 diff --git a/src/babashka/impl/fs.clj b/src/babashka/impl/fs.clj index 01ae05b7..588c9721 100644 --- a/src/babashka/impl/fs.clj +++ b/src/babashka/impl/fs.clj @@ -7,7 +7,7 @@ (def current-file (fs/file (fs/absolutize (fs/path "src" *file*)))) -(defn update-vars [] +(defn update-vars [_] (let [output (with-out-str (doseq [k (sort (keys (ns-publics 'babashka.fs)))] (println (str " '" k) (format "(sci/copy-var fs/%s fns)" k)))) this-file (slurp current-file) @@ -79,6 +79,7 @@ 'split-paths (sci/copy-var fs/split-paths fns) 'starts-with? (sci/copy-var fs/starts-with? fns) 'str->posix (sci/copy-var fs/str->posix fns) + 'strip-ext (sci/copy-var fs/strip-ext fns) 'sym-link? (sci/copy-var fs/sym-link? fns) 'temp-dir (sci/copy-var fs/temp-dir fns) 'walk-file-tree (sci/copy-var fs/walk-file-tree fns)