Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

prefer quot over unchecked-divide

  • Loading branch information...
commit 9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d 1 parent 1068a80
@richhickey authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/main/clojure/clojure/contrib/http/agent.clj
View
4 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)))
Please sign in to comment.
Something went wrong with that request. Please try again.