ikitommi

(require '[schema.core :as s])
(require '[schema.utils :as su])

(defn check-map [schema value]
  {:pre [(map? value)]}
  (if-let [value (s/check schema value)]
    (into {}
          (for [[k v] value]
            [k (cond
                 (symbol? v) (keyword v)