From df0e4b677bdb563abdc2aa03cb8e6376eceaf8d5 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Wed, 23 Jun 2010 13:28:16 -0400
Subject: equiv-based =, equiv overloading for Util

---
 src/jvm/clojure/lang/Util.java | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'src/jvm')

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){
-- 
cgit v1.2.3-70-g09d2