diff options
| author | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-05-25 16:47:54 +0200 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-05-25 16:47:54 +0200 |
| commit | 4fe738db417cbea76450e04223fdcc9ed0b2c053 (patch) | |
| tree | 9cb062ce5665be7a17924988c0d978964bd2792c | |
| parent | 061f3d5b45657a89faa335ffa2bb80819f2e6918 (diff) | |
generic.comparison: implement default inequalities on java.lang.Number rather than java.lang.Object
| -rw-r--r-- | src/main/clojure/clojure/contrib/generic/comparison.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/main/clojure/clojure/contrib/generic/comparison.clj b/src/main/clojure/clojure/contrib/generic/comparison.clj index 625471e3..47210cbf 100644 --- a/src/main/clojure/clojure/contrib/generic/comparison.clj +++ b/src/main/clojure/clojure/contrib/generic/comparison.clj @@ -1,7 +1,7 @@ ;; Generic interfaces for comparison operations ;; by Konrad Hinsen -;; last updated March 4, 2010 +;; last updated May 25, 2010 ;; Copyright (c) Konrad Hinsen, 2009-2010. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -178,19 +178,19 @@ [x y] (clojure.core/= x y)) -(defmethod > [Object Object] +(defmethod > [java.lang.Number java.lang.Number] [x y] (clojure.core/> x y)) -(defmethod < [Object Object] +(defmethod < [java.lang.Number java.lang.Number] [x y] (clojure.core/< x y)) -(defmethod >= [Object Object] +(defmethod >= [java.lang.Number java.lang.Number] [x y] (clojure.core/>= x y)) -(defmethod <= [Object Object] +(defmethod <= [java.lang.Number java.lang.Number] [x y] (clojure.core/<= x y)) |