Clojure Walk `path` recursivelly (with recur) and retrieves a vector with all regular files

files-recur.clj

(defn files-in-depth 
  "Walk `path` recursivelly and retrieves a vector with all regular files"
  [path]
  (loop [files [] acums [path]]
    (if-not (empty? acums)
      (if (Files/isDirectory (peek acums) (into-array (LinkOption/values)))
        (let [stream (Files/newDirectoryStream (peek acums))]
          (recur files (into (pop acums) (iterator-seq (.iterator stream)))))
        (recur (conj files (peek acums)) (pop acums)))
    files)))