delete-file-recursive

swank.loader

  • (delete-file-recursive & paths)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/loader.clj:61 top

(defn delete-file-recursive [& paths]
  (when-not (empty? paths)
    (let [f #^File (first paths)]
      (if (and f (.exists f))
        (if (.isDirectory f)
          (if-let [files (seq (.listFiles f))]
            (recur (concat files paths))
            (do
              (.delete f)
              (recur (rest paths))))
          (do
            (.delete f)
            (recur (rest paths))))
        (recur (rest paths))))))
Vars in swank.loader/delete-file-recursive: and concat defn empty? if-let let rest when-not
Used in 0 other vars

Comments top

No comments for delete-file-recursive. Log in to add a comment.