Permalink
Browse files

prefer quot over unchecked-divide

  • Loading branch information...
1 parent 1068a80 commit 9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d @richhickey committed Jun 16, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/main/clojure/clojure/contrib/http/agent.clj
@@ -99,7 +99,7 @@
(defn- connection-success? [#^HttpURLConnection conn]
"Returns true if the HttpURLConnection response code is in the 2xx
range."
- (= 2 (unchecked-divide (.getResponseCode conn) 100)))
+ (= 2 (quot (.getResponseCode conn) 100)))
(defn- open-response
"Agent action that opens the response body stream on the HTTP
@@ -137,7 +137,7 @@
"Returns true if the response status of the HTTP agent begins with
digit, an Integer."
[digit http-agnt]
- (= digit (unchecked-divide (.getResponseCode
+ (= digit (quot (.getResponseCode
#^HttpURLConnection (::connection @http-agnt))
100)))

0 comments on commit 9f9b78a

Please sign in to comment.