summaryrefslogtreecommitdiff
path: root/src/jvm
diff options
context:
space:
mode:
Diffstat (limited to 'src/jvm')
-rw-r--r--src/jvm/clojure/lang/Util.java24
1 files changed, 24 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/Util.java b/src/jvm/clojure/lang/Util.java
index a3306db6..4817dd56 100644
--- a/src/jvm/clojure/lang/Util.java
+++ b/src/jvm/clojure/lang/Util.java
@@ -59,6 +59,30 @@ static public boolean equals(double x, Object y){
static public boolean equals(Object x, double y){
return equals(x,(Double)y);
}
+
+static public boolean equiv(long x, long y){
+ return x == y;
+}
+
+static public boolean equiv(double x, double y){
+ return x == y;
+}
+
+static public boolean equiv(long x, Object y){
+ return equiv(Numbers.num(x),y);
+}
+
+static public boolean equiv(Object x, long y){
+ return equiv(x,Numbers.num(y));
+}
+
+static public boolean equiv(double x, Object y){
+ return equiv((Double)x,y);
+}
+
+static public boolean equiv(Object x, double y){
+ return equiv(x,(Double)y);
+}
//*/
static public boolean identical(Object k1, Object k2){