From 9f9b78ab6d536dbba4ae40eb0d6c5cdbfe843c5d Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Tue, 15 Jun 2010 22:58:11 -0400 Subject: prefer quot over unchecked-divide --- src/main/clojure/clojure/contrib/http/agent.clj | 4 ++-- 1 file 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))) -- cgit v1.2.3-18-g5258