Mark freeze-to-stream! and thaw-from-stream! as private

This commit is contained in:
Peter Taoussanis 2013-06-13 00:23:04 +07:00
parent da077c6a54
commit ac380eb621

View file

@ -157,7 +157,7 @@
(freeze-to-stream!* s m)))
(freeze x s))
(defn freeze-to-stream!
(defn- freeze-to-stream!
"Serializes x to given output stream."
([data-output-stream x] ; For <= 1.0.1 compatibility
(freeze-to-stream! data-output-stream x true))
@ -241,7 +241,7 @@
(throw (Exception. (str "Failed to thaw unknown type ID: " type-id))))))
(defn thaw-from-stream!
(defn- thaw-from-stream!
"Deserializes an object from given input stream."
[data-input-stream read-eval?]
(binding [*read-eval* read-eval?]