 (defn- decode-route-params [params]
   (into {} (for [[k v] params] [k (codec/url-decode v)])))
 
-(defn- assoc-route-params
-  "Associate route parameters with the request map."
-  [request params]
+(defn- assoc-route-params [request params]
   (merge-with merge request {:route-params params, :params params}))
 
-(defn- if-route
-  "Evaluate the handler if the route matches the request."
-  [route handler]
+(defn- if-route [route handler]
   (fn [request]
     (if-let [params (clout/route-matches route request)]
       (handler (assoc-route-params request (decode-route-params params))))))
 
-(defn- prepare-route
-  "Pre-compile the route."
-  [route]
+(defn- prepare-route [route]
   (cond
     (string? route)
       `(clout/route-compile ~route)

  (assoc binds sym `(get-in ~req [:params ~(keyword sym)]
                      (get-in ~req [:params ~(str sym)]))))

(defn- vector-bindings
  "Create the bindings for a vector of parameters."
  [args req]
  (loop [args args, binds {}]
    (if-let [sym (first args)]
      (cond

            [clout.core :as clout]
            [ring.util.codec :as codec]))

(defn- method-matches? [method request]
  (let [request-method (request :request-method)
        form-method    (or (get-in request [:form-params "_method"])
                           (get-in request [:multipart-params "_method"]))]
