                        ret)))))
               (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 [i x]]
                             ((range-reduce range) range (conj path i) f res x))
                           res

              (fn [range path f res val]
                (loop [rs rs]
                  (if (empty? rs)
                    (assert false)
                    (let [this-range (first rs)
                          v ((range-completer this-range) this-range path val)]
                      (if (range-error? v)

  (let [cmap ((range-completer range) range path val)
        settings (schema-settings-map schema)
        sections (schema-sections-map schema)]
    (c/assert (not (range-error? cmap)) (pr-str cmap))
    (reduce (fn [res [k v]]                            
              (if-let [setting (get settings k)]
                ((range-reduce (setting-range setting))
