 
   (-get
     [this id]
-    (when-block-file this id
+    (when-block id
       (file->block id file)))
 
 

    (file-stats file)))


(defmacro ^:private when-block-file
  "An anaphoric macro which binds the block file to `file` and executes `body`
  only if it exists."
  [store id & body]
  `(let [~(with-meta 'file {:tag 'java.io.File})
         (id->file (:root ~store) ~id)]
     (when (.exists ~'file)
       ~@body)))



  (stat
    [this id]
    (when-block id
      (block-stats id file)))


