 ;; ## Latency Measurement
 
 (defn- stopwatch
-  "Creates a delay expression which will return the number of milliseconds
+  "Create a delay expression which will return the number of milliseconds
   elapsed between its creation and dereference."
   []
   (let [start (System/nanoTime)]

  "Helper function for the `measure-method` macro."
  [store method-kw args body-fn]
  (let [elapsed (stopwatch)]
    (try
      (body-fn)
      (finally
        (when (::recorder store)
          (log/tracef "Method %s of %s block store on %s took %.1f ms"
                      (name method-kw)
                      (meter-label store)
                      args
                      @elapsed)
          (record! store ::method-time @elapsed
                   :method method-kw
                   :args args))))))

  well, and it is up to the receiver to interpret them."
  (:require
    [blocks.data :as data]
    [clojure.tools.logging :as log]
    [manifold.deferred :as d])
  (:import
    java.io.InputStream
    org.apache.commons.io.input.ProxyInputStream))


(defn- meter-label
