              "Cache not initialized, no :state available"))))
 
 
-(defn reap-space!
+(defn reap!
   "Given a target amount of space to free and a cache store, deletes blocks from
   the cache to free up the desired amount of space. Returns a vector of the
   deleted entries."

               (or (nil? max-block-size)
                   (<= (:size block) max-block-size)))
      ; Free up enough space for the new block.
      (reap-space! store (:size block))
      ; Store the block and update cache state.
      (when-let [cached (block/put! cache block)]
        (swap! (:state store)

          (log/infof "Cache has %d bytes in %d blocks"
                     (:total-size initial-state)
                     (count (:priorities initial-state)))
          this))))


