From 67975cdedfa8a2f7780062cb67182aff32e7679e Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Thu, 6 Nov 2008 18:54:51 +0000
Subject: made AFn's Comparator.compare work with predicates too, true values
 sorting first

---
 src/jvm/clojure/lang/AFn.java | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/jvm/clojure/lang/AFn.java b/src/jvm/clojure/lang/AFn.java
index 6d760573..b6070dac 100644
--- a/src/jvm/clojure/lang/AFn.java
+++ b/src/jvm/clojure/lang/AFn.java
@@ -46,7 +46,16 @@ public void run(){
 public int compare(Object o1, Object o2){
 	try
 		{
-		Number n = (Number) invoke(o1, o2);
+		Object o = invoke(o1, o2);
+
+		if(o instanceof Boolean)
+			{
+			if(RT.booleanCast(o))
+				return -1;
+			return RT.booleanCast(invoke(o2,o1))? 1 : 0;
+			}
+		
+		Number n = (Number) o;
 		return n.intValue();
 		}
 	catch(Exception e)
-- 
cgit v1.2.3-70-g09d2