Fix for cemerick/friend cemerick#32

PetrGlad · Nov 10, 2012 · f2ccfa1 · f2ccfa1
1 parent 71ab55f
commit f2ccfa1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cemerick/friend.clj b/src/cemerick/friend.clj
@@ -227,7 +227,7 @@ Equivalent to (complement current-authentication)."}
   [& body]
   (let [[unauthorized-info body] (if (map? (first body)) body [nil body])]
     `(if (current-authentication *identity*)
-       ~@body
+       (do ~@body)
        (#'throw-unauthorized *identity* (merge ~unauthorized-info
                                                {::exprs (quote [~@body])
                                                 ::type :unauthenticated})))))