                    :else (make-range-error this-range ky vl))))
               (fn [this-range path f res val]
                 (let [v ((range-completer this-range) this-range path val)]
-                  (assert (not (range-error? v)) (pr-str v))
+                  (c/assert (not (range-error? v)) (pr-str v))
                   (reduce (fn [res [k v]]
                             ((range-reduce val-range) val-range (conj path k) f
                              ((range-reduce key-range) key-range path f res k)

  (make-range description completer
              (fn [range path f res val]
                (let [v' (completer range path val)]
                  (assert (not (range-error? v')) (pr-str v'))
                  (f range path res v')))))

(defn any-value-range

                       ret)))))
              (fn [this-range path f res val]
                (let [v ((range-completer this-range) this-range path val)]
                  (c/assert (not (range-error? v)) (pr-str v))
                  (reduce (fn [res [i x]]
                            ((range-reduce range) range (conj path i) f res x))
                          res
