Make coerce-custom-type-id private

This commit is contained in:
Peter Taoussanis 2014-07-06 13:47:38 +07:00
parent 05b424fe33
commit 13cdf06a60

View file

@ -632,7 +632,7 @@
(assert (or (keyword? custom-type-id)
(and (integer? custom-type-id) (<= 1 custom-type-id 128)))))
(defn coerce-custom-type-id
(defn- coerce-custom-type-id
"* +ive byte id -> -ive byte id (for unprefixed custom types).
* Keyword id -> Short hash id (for prefixed custom types)."
[custom-type-id]