Skip to content

Instantly share code, notes, and snippets.

@mfikes

mfikes/delete_recursively.clj

Last active August 29, 2015 14:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mfikes/79f75def26b50ef327dc to your computer and use it in GitHub Desktop.
Save mfikes/79f75def26b50ef327dc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
delete_recursively.clj
(defn delete-recursively [fname]
(letfn [(func [f]
(when (.isDirectory f)
(doseq [f2 (.listFiles f)]
(func f2)))
(clojure.java.io/delete-file f))]
(func (clojure.java.io/file fname))))
(defn delete-recursively' [fname]
(let [func (fn func [f]
(when (.isDirectory f)
(doseq [f2 (.listFiles f)]
(func f2)))
(clojure.java.io/delete-file f))]
(func (clojure.java.io/file fname))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment