         (.getBytes blob-charset))))
 
 
-(defn print-data
+(defn print-blob
   "Prints the given data value(s) as canonical EDN in a data blob."
   [value & more]
   (binding [puget/*strict-mode* true]

(def ^:private ^:const blob-width
  "Width of text to use in serialized blobs."
  100)




(defn- read-secondary-values!
  "Reads the secondary EDN values from a data blob. Returns a seq of the values
  read."
  [tag-readers
   ^Reader reader]
  (let [opts {:eof ::end-stream
              :readers tag-readers}
        read-stream (partial edn/read opts reader)
        edn-stream (repeatedly read-stream)
        not-eos? (partial not= ::end-stream)]
