diff --git a/src/tnetstrings/core.clj b/src/tnetstrings/core.clj index abdf843..2a2fdcd 100644 --- a/src/tnetstrings/core.clj +++ b/src/tnetstrings/core.clj @@ -105,12 +105,15 @@ (defn- boolean? [x] (or (= true x) (= false x))) (defn- dump-item [item] - (cond (nil? item) "0:~" ; Null - (string? item) (dump-str item) ; String - (integer? item) (dump-int item) ; Integer - (boolean? item) (dump-bool item) ; Boolean - (list? item) (dump-list item) ; List - (map? item) (dump-map item) ; Map + (cond (nil? item) "0:~" ; Null + (string? item) (dump-str item) ; String + (integer? item) (dump-int item) ; Integer + (boolean? item) (dump-bool item) ; Boolean + (list? item) (dump-list item) ; List + (vector? item) (dump-list item) ; Vector + (set? item) (dump-list item) ; Set + (map? item) (dump-map item) ; Map + (keyword? item) (dump-str (name item)) ; Keyword :else :INVALID))