Added make-route function for low-level route creation

src/compojure/core.clj

@@ -83,14 +83,22 @@
     `(let [~@(vector-bindings bindings request)] ~@body)
     `(let [~bindings ~request] ~@body)))
 
+(defn make-route
+  "Returns a function that will only call the handler if the method and Clout
+  route match the request."
+  [method route handler]
+  (if-method method
+    (if-route route
+      (fn [request]
+        (render (handler request) request)))))
+
 (defn- compile-route
   "Compile a route in the form (method path & body) into a function."
   [method route bindings body]
-  `(#'if-method ~method
-     (#'if-route ~(prepare-route route)
-       (fn [request#]
-         (let-request [~bindings request#]
-           (render (do ~@body) request#))))))
+  `(make-route
+    ~method ~(prepare-route route)
+    (fn [request#]
+      (let-request [~bindings request#] ~@body))))
 
 (defn routing
   "Apply a list of routes to a Ring request map."

test/compojure/test/core.clj

@@ -133,3 +133,12 @@
                          body)
         "/foo" "foo"
         "/bar" "bar")))
+
+(deftest make-route-test
+  (let [handler (make-route :get (route-compile "/foo/:id") #(-> % :params :id))]
+    (are [method url body] (= (:body (handler (request method url)))
+                              body)
+      :get  "/foo/10" "10"
+      :post "/foo/10" nil
+      :get  "/bar/10" nil
+      :get  "/foo"    nil)))