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


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

(defprotocol IPathRepr
  "Path parameters coercion protocol."

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

