diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-06-15 22:58:11 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-06-15 22:58:11 -0400 |
| commit | 9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d (patch) | |
| tree | b4b0aa8abfe8422d07b51615934f7ab29e19efcc /src/main | |
| parent | 1068a8045a6d75bb589fee885cc3a86f8d977c0c (diff) | |
prefer quot over unchecked-divide
Diffstat (limited to 'src/main')
| -rw-r--r-- | src/main/clojure/clojure/contrib/http/agent.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/main/clojure/clojure/contrib/http/agent.clj b/src/main/clojure/clojure/contrib/http/agent.clj index 937aadc0..cd257bb7 100644 --- a/src/main/clojure/clojure/contrib/http/agent.clj +++ b/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))) |