 ;; ----- URI match -----
 
 
-(def ^:const NO-MATCH nil)
-
-
 (def ^:const NO-PARAMS {})
 
 



(defn match-uri
  "Match given URI string against URI pattern:

  | Argument               | Description                                       |
  |------------------------|---------------------------------------------------|

             init
             (let [i (.iterator (.entrySet m))]
               (loop [last-result init]
                 (if (.hasNext i)
                   (let [^Map$Entry pair (.next i)]
                     (recur (f last-result (.getKey pair) (.getValue pair))))
                   last-result))))))
