working require-login

auth.clj

(defn require-login*
  "Used to wrap a route handler, checks if 'logged-in?'. If true, allows the handler to run.
  If false, rejects the user."
  [success-method fail-method {session :session :as req}]
  (if (logged-in? session)
    (apply success-method [req])
    (apply fail-method [req])))

(defn- require-login-single-form
  [fail-method [method path args & body :as form]]
  `(~method ~path ~args #(require-login* ~@body ~fail-method %)))

(defmacro require-login
  [fail-method & forms]
  (let [processed-forms (vec (map #(require-login-single-form fail-method %) (vec forms)))]
    `(apply routes ~processed-forms)))

Very cool,
Btw, in lines 6 and 7, why don't you just use (success-method req) and (fail-method req)

Thanks, you're right, no point in using apply.