       (.deleteOnExit))))
 
 
-(defn- rm-r
-  "Recursively removes a directory of files."
-  [^File path]
-  (when (.isDirectory path)
-    (run! rm-r (.listFiles path)))
-  (.delete path))
-
-
-
-;; ## Block Files
+;; ### Block Files
 
 (def ^:private prefix-length
   "Number of characters to use as a prefix for top-level directory names."

    java.time.Instant))


(def layout-version
  "The current supported storage layout version."
  "1")



;; ## Metadata

(defn- meta-file
  "Construct the store-level metadata properties file from the store root."

    {:version layout-version}))


;; ### Landing Area

(defn- landing-dir
  "Construct the landing directory from the store root."
