           (-navigate [_ id params query]
             (when-let [path (resolve router id params query)]
               (.setToken history path)))
-          (-replace-location [_ id params query]
+          (-replace [_ id params query]
             (when-let [path (resolve router id params query)]
               (.replaceToken history path))))))))
 


(defprotocol IRouter
  (-navigate [_ loc params query])
  (-replace-location [_ loc params query]))

(defprotocol IPathRepr
  "Path parameters coercion protocol."

  ([router id params] (replace! router id params nil))
  ([router id params query]
   {:pre [(router? router)]}
   (-replace router id params query)))
