Clojure bracket balanced? function

gistfile1.clj

(defn bbalanced? [s]
  "Is the provided string bracket balanced?"
  (zero? (count (reduce (fn [v ch]
                          (if (= ch \[)
                            (conj v ch)
                            (if (= ch \])
                              (if (= \[ (peek v))
                                (pop v)
                                (conj v ch))
                              v)))
                         []
                         s))))