e8f7a9b

src/net/bowmap/transport/packet_types.clj modified (view file)

@@ -10,7 +10,7 @@               ::doc (s/? string?)               ::codec fn?))) -(defn mapize-vector-or-something+(defn as-map   "Returns a map of keys to vals, where vectors will map their indecies to their values."   [x]   {:pre [(or (map? x) (vector? x))]}

src/net/bowmap/transport/readers.clj modified (view file)

@@ -53,7 +53,7 @@ (def ->identifer ->string)  (defn ->enum [reader m]-  (let [m (t/mapize-vector-or-something m)]+  (let [m (t/as-map m)]     (fn [buf]       (m (reader buf))))) @@ -78,7 +78,7 @@  ; TODO what happens when a bad value is read in (defn ->bit-mask [reader mask]-  (let [mask (t/mapize-vector-or-something mask)]+  (let [mask (t/as-map mask)]     (fn [buf]       (read-bit-mask! buf reader mask)))) 

src/net/bowmap/transport/writers.clj modified (view file)

@@ -205,7 +205,7 @@   "Writes an enum with writer 't', and a map 'm', which maps encoded values to values, so it is 'backwards'.    For instance, the map {1 :foo} will write :foo as 1."   [writer m]-  (let [m (set/map-invert (t/mapize-vector-or-something m))]+  (let [m (set/map-invert (t/as-map m))]     (fn [buf x]       (writer buf (m x))))) @@ -216,7 +216,7 @@     ((list-> long->) buf (BitSet/.toLongArray bs))))  (defn bit-mask-> [writer mask]-  (let [mask (t/mapize-vector-or-something mask)]+  (let [mask (t/as-map mask)]     (fn [buf m]       (let [n (reduce (fn [acc [bit x]]                         (if (contains? m x)