diff options
| -rw-r--r-- | src/clj/clojure/gvec.clj | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/clj/clojure/gvec.clj b/src/clj/clojure/gvec.clj index ce4fb7d7..7da8e49e 100644 --- a/src/clj/clojure/gvec.clj +++ b/src/clj/clojure/gvec.clj @@ -339,15 +339,16 @@ (compareTo [this o] (if (identical? this o) 0 - (let [ocnt (.count (cast clojure.lang.IPersistentVector o))] + (let [#^clojure.lang.IPersistentVector v (cast clojure.lang.IPersistentVector o) + vcnt (.count v)] (cond - (< cnt ocnt) -1 - (> cnt ocnt) 1 + (< cnt vcnt) -1 + (> cnt vcnt) 1 :else (loop [i (int 0)] (if (= i cnt) 0 - (let [comp (clojure.lang.Util/compare (.nth this i) (.nth o i))] + (let [comp (clojure.lang.Util/compare (.nth this i) (.nth v i))] (if (= 0 comp) (recur (inc i)) comp)))))))) |