From 7f6eadb2000d047487e316077d3462dad8b87bd0 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Tue, 24 Jun 2008 16:37:37 +0000
Subject: fixed sort-by regression

---
 src/boot.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/boot.clj b/src/boot.clj
index e3d42473..8b9cc4de 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -1279,7 +1279,7 @@ not-every? (comp not every?))
   supplied, uses compare. comparator must
   implement java.util.Comparator."
   ([keyfn coll]
-   (sort-by compare coll))
+   (sort-by keyfn compare coll))
   ([keyfn #^java.util.Comparator comp coll]
    (sort (fn [x y] (. comp (compare (keyfn x) (keyfn y)))) coll)))
 
-- 
cgit v1.2.3-70-g09d2