Compare nested maps

comp-map.clj

(defn comp-map [ma mb]
  (reduce (fn [a [k v]]
            (and a
                 (if (and (map? v) (map? (mb k)))
                   (comp-map v (mb k))
                   (= v (mb k)))))
          true
          ma))

(comp-map {:a {:b 2 :c 3}} {:a {:b 2 :c 3}})) ;=> true
(comp-map {:a {:b 2 :c 3}} {:a {:b 2 :c 4}})) ;=> false
(comp-map {:a {:b 2 :c 3}} {:a {:b 2 :c 3 :d 4} :e 5})) ;=> true